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PREFACE 



The VIC-1541 disk drive represents a very efficient external 
storage medium for the Commodore user, it is an affordable 
peripheral. In order to get the most from your 1541, you 
need the appropriate information. In months of long, 
detailed work, Lothar Englisch and Norbert Szczepanowsk i 
have discovered many secrets of the 1541. 

This book progresses from simple storage techniques, to 
direct access commands , to program chaining techniques. 
Beginners will welcome the numerous sample programs that are 
fully explained in clear text. Machine language programmers 
will particularly like the detailed documentation listing of 
the Disk Operating System (DOS). 

This book contains many useful and ready-to-run programs 
that need only be typed in. some of these programs 
are: routines for extending BASIC, helpful routines such as 
spooling, efficient address management, a complete household 
budget planner and an easy-to-use DOS monitor to manipulate 
individual sectors. Have fun with this book and your VIC- 
1541 disk drive. 
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Anatomy of the 1541 Disk Drive 
Chapter Is Programming the VIC-1541 

1.1 Getting Started 

There it sits, your new Commodore VIC-1541 disk drive. It's 
fast and efficient but also intimidating. But have no fear. 
We will instruct you in the ways of disk programming. The 
first part of this book gives the beginner an intensive look 
at the VIC-1541. At least one example follows each command, 
thereby explaining its functions and capabilities. You will 
be surprised how easy the operation of your disk drive can 
be, when you understand the "basics". 

The beginner probably uses the disk drive mainly to store 
programs. Perhaps he has not realized that there are many 
other ways to use the disk drive. This book attempts to 
^sjMacover these other ways. 

Experienced programmers should not ignore the first chapter. 
There may be some sections that may shed light on disk 
usage. This is especially true concerning relative files and 
data management. 



1.1.1 The Disk Operating System 

The disk drive is a rather complicated device which 
coordinates mechanical hardware and electronic circuitry to 
allow the storage of data on the diskette. When the 
Commodore 64 or VIC-20 needs to read from or write to the 
disk drive, it sends commands to the disk drive along the 
heavy black cable that connects the drive to the computer. 
The commands sent by the Commodore 64 or VIC-20 are under- 
stood at the di^k drive by a by a built in program called 
^hjjADisk Operating system (DOS). 

The DOS is a lengthy program contained on ROM in the disk 
drive and carries out the activities of the disk drive as 
commanded by the Commodore 64 or VIC-20. The version of DOS 
contained in the VIC-1541 carries the designation CBM DOS 
V2.6. 

The Commodore 64 and VIC-20 contain a version of BASIC 
called COMMODORE BASIC 2.0. Other versions of BASIC (e.g. 
BASIC 4.0 found of the Commodore 8032) have more advanced 
disk commands which the VIC-1541 can also understand. In 
order to use these advanced disk commands, you have to 
simulate them using BASIC 2.0. 

At the end of the chapter is a listing of the BASIC 2.0 



Anatomy of the 1541 Disk Drive 



commands with corresponding commands of the easier BASIC 
4.0, as found on the larger Commodore computers. 



1.1.2 The TEST/DEMO Diskette 

The VIC-1541 disk drive is packaged with a diskette called 
TEST/DEMO. Some of the programs contained on it cannot he 
used without adequate knowledge of the way the disk drive 
works. For now, lay this diskette aside. 

The TEST/DEMO diskette is described in detail later. 



1.1.3 Formatting New Diskettes -' ' s 

Brand new diskettes must be prepared before using them to 
store data. Preparing them is called formatting. 

What does formatting mean? Each disk drive mechanism has its 
own special characteristics. A diskette is divided into 
tracks and information is written along each track (similar 
to the grooves of a phonographic record). The number of 
tracks per diskette is varies from one manufacturer to 
another. Each track is divided into sectors, whose number 
can also vary. 

During formatting empty sectors are Written to the diskette. 
A sector is written to each track aW'sector location and 
each sector receives its own "address". This allows the DOS 
to identify its position on the diskette. A sector is also 
given a code so that the DOS can recognize if this diskette 
was formatted by this type of disk drive. The code for the 
VIC-1541 disk drive is 2A. The remainder of the sector 
(called a block) is used to store data a*id accommodates 
exactly 256 characters. j. 

The final purpose of formatting is to construct the 
directory for the diskette. The directory is a "table of 
contents" of the files stored on the diskette. There is also 
a special data block (called the bit availability map or 
BAM) which indicates if a given block on the diskette is 
already in use or available for use. The directory and BAM 
are kept on track 18 of the diskette. 
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1.1.4 Some Facts about a 1541 Diskette 

Diskette: 



Number of Tracks: 
Sectors per Track: 
Bytes per block: 
Total number of blocks: 
Number of free blocks 

Entries in the directory: 

Mechanism: 



35 

17 to 21 (depending on track) 

256 

683 

644 (the directory occupies 

the remainder) 

144 per diskette 



intelligent peripheral with its own processor and control 

system 

connection to serial bus -Ifrom CB^I 64 or VIC-20, device 

number 4-15 (8 standard) . ''•"""*' 
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1.2 Storing Programs on Diskette 

The most common use of the disk drive is for storage of 
programs. Storing programs with a disk drive is considerably 
easier than with a cassette recorder. The greatest advantage 
of the disk drive is the speed of data transfer to and from 
the computer. Here's a comparison: 

Saving a 3 Kbyte program takes: 

- 75 seconds with the VIC-1530 Datasette 

- 12 seconds with the VIC-1541 disk drive 

An additional advantage is that a diskette can store more 
programs than the cassette. To load a program, you can 
consult the directory t£ view the selection of programs. 
Even though the cassett#^rive ^allows you to store more than 



one program on a tape, TpJihrflPiijg: for that program is very 
time consuming. 

Before trying any of the followftsg examples in this chapter, 
you should remember that the diskette must be previously 
formatted as explained in section 1.3.2 in order to be able 
to save programs onto it. 



1.2.1 SAVE - Storing BASIC Programs 

perhaps you previously owned a datasette on which you stored 
programs. In this case the command^Lfcetsave programs onto 
diskette should be familiar to you. fty'SAVE command for the 
disk drive is essentially the same as for the cassette 
drive. You need only tell the computer that the program is 
to be saved onto the disk drive and not on cassette. This 
is done by adding the device number (usually 8) to the 
command SAVE. Normally the drive is preset to respond to 
this device number. Now write a small BASIC, program and save 
it with the command: s^.. 

SAVE" TEST", 8 

type in a the NEW command so the program in the computer's 
memory is erased. In the following section you will learn 
how the program can be retrieved. 



1.2.2 LOAD - Loading BASIC Programs 

As with the SAVE command, this command is similar to the 
LOAD command for the datasette with the addition of the 
device number. Now load in the previously saved program 
with: 
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LOAD "TEST", 8 

You can check the program by using the LIST command. Any 
previous program in memory has now been replaced by the 
program "TEST". It is possible to load a program into the 
memory without replacing the previous program in memory. 
Combining two program in memory is called "merging" An 
example of merging is presented in a later section. 



1.2.3 VERIFY - Checking Stored Programs 

When you have saved a program on disk with the SAVE command, 
it is often desirable to make sure that the program was 
written error-free. You can do this by using the VERIFY 
commands It has the following format: 

VERIFY"filename*,8 

Earlier you saved a program with SAVE "TEST", 8. This pro- 
gram should still be in memory. Using VERIFY, the program in 
memory is checked against the program stored on diskette. If 
both programs are identical, the computer responds with OK. 

To try this out, type a few BASIC lines and then give the 
fo-llowing commands: 

SAVE "TEST2",8 
VERIFY *TEST2',8 

Your computer will respond with OK if it is performing 
correctly. 



1.2.4 SAVE'e:..." - Replacing Programs 

If you try to save your small TEST program on the disk 
again, the computer will respond with a FILE EXISTS error 
and will not complete the SAVE. The operating system of the 
VIC-1541 disk drive does not allow two programs to be saved 
under the same name. This is logical because the computer 
would not be able to distinguish between two programs with 
the same name. 

However you may want to update a program on diskette that was 
previously saved. There are three ways to accomplish this: 

1. Save the program under a different name 

2. First erase the old program from the disk and save the 
new one under the old name 
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3. Use the addition @: in front of the file name in the SAVE 
command 

This is used as follows: 

SAVE"0sTEST",8 

If you forget to use the characters §: in front of the 
filename, and try to save a program whose name is already 
contained on the diskette, you get the FILE EXISTS error. 

If you are replacing a program on a diskette then the DOS 
carries this out as follows: 

1. A free block is designated as the first block of the 
program and its location is stored in the directory entry 
of the old copy. 

2. The new copy of the program is stored in a free area of 
the diskette. 

3. All of the blocks of the old copy are marked as free. 



1.2.5 Loading Machine Language Programs 

Machine language programs are handled a little differently 
from BASIC programs. A machine language program is trans- 
ferred to the computer by using a secondary address of 1. 
When secondary address 1 is used, the program is loaded 
"absolutely", that is, loaded into memory beginning at the 
address specified in the first two bytes of the disk file. 
An example: 

LOAD "MACHPGRM*,8,1 

loads the machine language program at an absolute address. 

For example, the program may be set up to load at the 
decimal address 49152, and is started by the command : SYS 
49152. Should you load a machine language program without 
the secondary address, you will most likely see the message 
"SYNTAX ERROR IN ...." if you type RUN. 

Likewise, trying to LIST the machine language program will 
display nonsense. Unfortunately, machine language programs 
are not differentiated from BASIC programs in the directory. 
Both have the file type PRG. 

Usually, if typing RUN results in SYNTAX ERROR IN ...., you 

know that the program is not written in BASIC and should be 
treated as a machine language program. In this case it must 
be loaded with the command LOAD "program", 8 , 1. It cannot be 
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started with RUN however! You must first find the execution 
address of this program. 

In a later section is a program that lists all the file 
parameters of a program. One of the parameters is a load 
address. This load address is usually the initial execution 
address of the program and can be called with the command 
SYS load address. You can find the load address of a program 
with the following program: 

10 OPEN 1,8 ,2,"programname,S,R" 

20 GET#1,XS:IF XS=" " THEN X$=CHR$(0) 

30 LB=ASC(XS) 

40 GET#1,X$:IF X$="" THEN X$=CHR$(0) 

50 HB=ASC(X$) 

6 CLOSE 1 

70 AD=HB*256+LB 

80 PRINT"LOAD ADDRESS: "jAD 

The program shows the load address of "programname". Here 
the program file is opened as a sequential data file. The 
starting address is stored as the first two bytes of the 
file and read using the GET command and appropriately con- 
structed. The first byte is the low byte and the second byte 
the high byte of the two-byte address. If the function of 
this program is unclear, handling sequential files clarified 
in the next sections. 



1.2.6 Storing Machine Language Programs 

Machine language programs are usually written with an assem- 
bler or a machine language monitor and saved using this 
program. Machine language programs can also be written from 
BASIC with the individual bytes of the program written in 
decimal values in DATA statements. A machine language pro- 
gram written in BASIC with the help of DATA statements 
follows: 

10 SA=starting address 

20 EA=ending address 

30 FOR I=SA TO EA 

40 READ X 

50 POKE I,PEEK(X) 

60 NEXT I 

80 DATA 

90 DATA 



In this example, the decimal value of the starting address 
is placed in line 10 and the ending address in line 20. The 
decimal values of the individual bytes of the machine 
language program are typed into the DATA statements of the 
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program, separated by commas. 

Naturally, you can save any machine language program that 
you find in this book in the form of a BASIC program. This 
is, however, a tedious and complicated process. A more 
elegant and txme-saving method is to store the machine 
language program in true form. This way, you can immediately 
execute the program after LOADing without requiring any 
complicated conversion. 

The following program will save such a program that is 
already in memory: 

10 SA=starting address 

20 EA=ending address 

30 OPEN l,8,l,"programname" 

40 HB=INT(SA/256) : LB=SA-HB*256 

50 PRINT#1,CHR$(LB) ;CHR$(HB) ; 

60 FOR I=SA TO EA 

70 PRINT#1,CHR$(PEEK(I) ) ; 

80 NEXT I 

90 CLOSE 1 

This routine assumes that the machine language program is 
already in the memory of the computer. If a program is 
already encoded into DATA statements, the following routine 
can be used to produced a pure machine language program: 

10 SA=starting address 

20 EA=ending address 

30 OPEN l,8,l,"prOgramname" 

40 HB=INT(SA/256) : LB=SA-HB*256 

50 PRINT#1,CHR$(LB) ;CHR$(HB) ; 

60 FOR I=SA TO EA 

70 READ X 

80 PRINT#1,CHR$(X) ; 

90 NEXT I 

100 CLOSE 1 

110 DATA 

1 20 DATA 



Here the addresses and DATA statements are filled in also. 
The above program writes a machine language program to 
diskette which can later be loaded with the command LOAD 
"programname",8,l. Then the program can be executed with 
the command: SYS (starting address). Machine language pro- 
grams can also be loaded and executed from a BASIC program. 
Such a program might have this form: 

10 IF A=0 THEN A=l : LOAD"programname" , 8 , 1 
20 SYS (starting address) 

The IF command in line 10 is puzzling at first. It must be 
present because after performing a LOAD from within a pro- 
gram, the BASIC interpreter begins executing again at the 
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first line of the new BASIC program. Because the machine 
language program doesn't usually overlay the BASIC program 
in memory, the original BASIC program remains intact and is 
therefore is re-executed. If you use the routine: 

10 LOAD"programname" ,8 ,1 
20 SYS (starting address) 

the program continues to LOAD "programname" again, and the 
SYS command is never executed. If the variable A is present, 
the program branches to line 20 at the end of the first 
command on line 10. This loader can be placed on the 
diskette together with the machine language program. To 
execute the machine language program, you need only give the 
commands: 

LOAD" loader", 8 

RON 

This has the advantage that the starting address of the 
machine language program need not be known, because it is 
included in the SYS of the loader. 
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1.3 Disk System Commands 

As already mentioned, the VIC-1541 disk drive is similar to 
the the earlier, larger disk drives of the Commodore family 
- the CBM 4040, 8050, 8250. They are all intelligent peri- 
pheral device with their own processor and control system. 
The Disk Operating System (DOS) occupies no space in the 
memory of the Commodore 64 or VIC-20 and yet offers a flex- 
ible set of efficient commands. These commands effectively 
expand the builtin commands of your Commodore computer. 

Because the disk drive is an intelligent peripheral, the 
commands of the DOS can be executed independently of the 
computer. But because the commands are not found in the 
version of BASIC supplied in the Commodore 64 or VIC-20, 
you will have to communicate to the disk using a special 
method, when the commands are sent to the disk drive, the 
DOS interprets and carries out the desired task. 



1.3.1 Transmitting commands to the Disk Drive 

Commands intended for the disk drive, are sent over a 
channel. You can communicate with the disk drive over any of 
the 15 available channels. But channel 15 is reserved as the 
command channel. Data transfer over this channel takes place 
as follows: 

- opening the channel (OPEN) 

- data transfer (PRINT) 

- close the channel (CLOSE) 

In the OPEN command you specify a logical file number 
(arbitrary between 1 and 127), a device number of the disk 
drive (usually 8) and the secondary address (15 for the 
command channel). You can also send a command to the device 
as illustrated below: 

OPEN lfn, 8, 15, "command" 

or 

OPEN lfn, 8, 15:PRINT#lfn, "command" 

The number 8 is the device number of the disk drive and the 
number 15 is the secondary address or channel number. The 
parameter lfn is the logical file number which is used in 
subsequent commands (PRINT*, INPUT#, GET#). It can be a 
number in the range 1-127. The "command" can either follow 
the OPEN statement directly, or can be transferred with a 
PRINT* command following the opening. Any number of system 
commands can be transmitted until the channel is closed, but 
must be referenced by the logical file number used in the 
OPEN command. 
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1.3.2 NEW - Formatting Diskettes 

The command to format a diskette is called NEW and can, as 
every other command, be abbreviated to its first letter (N). 
As already mentioned, the command can follow an OPEN command 
or be given in a PRINT* command. The NEW command has the 
following format: 

NEW:diskname, id 

The parameter diskname may contain up to 16 characters and 
is stored in the header of the diskette directory. The 
parameter ID (identification) consists of two arbitrary 
characters, so that the DOS can recognize if a different 
diskette has been used. Since you can freely choose the id, 
this allows you to uniquely identify each diskette. Here is 
an example for formatting a disk: 

OPEN l,8,15,"NEWsABCDISK,KI." 

The command can be abbreviated to: 

OPEN 1,8,15,"N:ABCDISK,KI." 

You need only use the command once - when you first use a 
brand new diskette. Formatting takes about 80 seconds. For- 
matting uses the processor of the 1541 drive while the 
processor of the computer is not needed: you can continue to 
work with the computer. 

To use the command with a PRINT* statement, the following 
commands must be given: 

OPEN 1,8,15 to open the channel 

PRINT#1,"N:ABCDISK,KL" 

The number 1 in the PRINT* command is the logical file 
number corresponding to the OPEN command. Other commands may 
also be transmitted over this channel after the PRINT* 
statement. When no more commands are to De transmitted, the 
channel roust be closed. This is accomplished through the use 
of the CLOSE statement. Give the following command after 
formatting; 

CLOSE 1 

Now the command channel is closed. The number 1 is again the 
logical file number of the corresponding OPEN command. 
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1.3.3 Reading the Error Channel 

When the Commodore 64 or VIC- 20 is incorrectly programmed, 
it responds with an error message. Disk commands are carried 
out and verified by the processor of the disk drive. 
Therefore the computer cannot directly display error 
messages that are detected by the disk drive. Errors are 
indicated by the flashing red LED on the disk drive. In 
order to determine which error has occurred, the computer 
must read the error from channel 15. Therefore channel 15 
must be OPENed, if this has not already been done. Then the 
error can be read with the INPUT* command. An error is sent 
back to the computer in four fields - 

Field 1: Error number 

Field 2: Description of the error (string) 

Field 3: Track number 

Field 4: Sector number 

The track and sector information may indicate where the 
error occurred (if these fields are relevant to the 
command). These four fields of the error message must be 
read into four variables. You can use an INPUT* statement 
followed by four variables. An example of reading the error 
channel: 

OPEN 1,8,15 (if not already done) 

INPUT* 1 , EN , DE$ , TR , SE 
CLOSE 1 

The INPUT* statement must be entered from within a program. 
It is not proper to issue an INPUT* statement from command 
mode. 

10 OPEN 1,8,15 

20 INPUT#1,EN,DE$,TR,SE 

30 PRINT EN;DES;TR;SE (to display the error) 

40 CLOSE 1 

To understand the operation of this program, first create 
the following error: 

OPEN 1,8, 15, "NEW ABCDISK,T1* 

CLOSE 1 

When you have given these commands, the red LED on the disk 
drive begins to blink. Did you spot the error? A colon is 
missing from the command NEW. Now type the program to read 
the error channel and type RUN. The error will appear on the 
screen: 

34 SYNTAX ERROR 

The 34 is the number of the error, which is explained later. 
The track and sector fields are because this information 
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is not relevant to this error. 

If you read the error channel when an error had not 
occurred, the message: 

OK 

is returned. In any case, if the red LED on the drive 
blinks, check the syntax of the command, since most errors 
can be easily recognized. Otherwise, you can simply read the 
error channel to find the error which the DOS has detected. 
A detailed description of the error message and their causes 
follows in section 1.6. 



1.3.4 LOAD"S*,8 - Loading the Directory 

The directory is a "table of contents" of the diskette. All 
the files on the diskette are cataloged here. Be sure to 
note that loading the directory has a disadvantage: any 
program previously in memory is overlayed by the directory 
information. The directory is loaded by typing: 

LOAD "S",8 

and can be viewed with the LIST command. Try LOADing the 
directory of the TEST/DEMO diskette that accompanies your 
disk drive. Insert this diskette into the disk drive and 
enter: LOAD "S*,8 to load the directory. Then display the 
directory by using the LIST command. What follows should be 
shown on the screen 

"1541test/demo " zx 2a 

13 "how to use" prg 

5 "how part two" prg 
4 "vic-20 wedge" prg 

1 "c-64 wedge" prg 
4 "dos 5.1" prg 
11 "copy/all" prg 
4 "disk addr change" prg 
4 "dir" prg 

6 "view bam" prg 

4 "check disk" prg 

14 "display t&s" prg 
9 "performance test" prg 

5 "sequential file" prg 
13 "random file" prg 

A lot of information is kept in the directory. Let's look at 
the first line, the header of the directory. The number in 
this line means that the directory is of the diskette in 
drive 0. Other disk drives such as the 4040, contain two 
disk drives - drive or drive 1. On the 1541 the drive 
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number is always 0. Next follows the name and ID of the 
diskette as set up by formatting. The characters 2A sym- 
bolize the disk format. If this format is not 2A then this 
diskette was not formatted with a 1541 drive. 

Next are the individual file names, their lengths in blocks 
in the first column and the file type in the last column. 
This diskette contains three different file types: 

PRG These are PROGRAM files, written in either 
BASIC or machine language 

SEO Sequential data files, explained later 

REL This is another form of data storage, also 
explained later 

The length of the files is given in blocks. Each block 
contains 256 bytes. You can find the approximate size a 
program, by subtracting 2 bytes from each 256-byte block 
that the file occupies. Finally at the end of the directory 
is the number of free blocks remaining on the disk, when you 
add the lengths of the files and the number of free blocks, 
the result is the total number of available blocks on a 
diskette (664). 

If you own a printer, this directory can be printed as you 
would print a program listing. Use the following commands: 

OPEN 1,4 open the printer 

CMD 1 the printer is now linked to the 

screen 
LIST the directory will be printed 

PRINT#1 send a RETURN to the printer 
CLOSE 1 Close the printer again 

It is assumed that the directory is already loaded with the 
LOAD'S*, 8 command before these commands are executed. By 
inserting a wildcard when loading the directory, you can 
cause only part of the directory to be loaded, such as only 
the programs. This is explained in section 1.3.10 



1.3.5 SCRATCH - Deleting Files 

Sometimes an unneeded file must be removed from the 
diskette. The SCRATCH command is provided for doing so. 
Before using this command, you roust be sure that the name 
given in the SCRATCH command corresponds with the file to be 
deleted. An unintentionally deleted file can ruin many hours 
or even days of work, so he careful before using the SCRATCH 
command. 
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To delete a file, the following format should be used: 

PRINTtlfn, "SCRATCH: filenamel, f ilename2,..." 

More than one file can be deleted by using a single command. 
But remember that only 40 characters at a time can be sent 
over the transmission channel to the disk drive. 

For example, to erase a file with the name TEST, the 
following commands are used: 

OPEN 1,8,15,"S:TEST" 
CLOSE 1 

If channel 15 is already open, only the PRINT* command is 
required: 

PRINT#1,"S:TEST" 

It is possible to delete the entire contents of a diskette. 
This is discussed in section 1.3.10, the wildcard character 
(*): 

PRINT#1,"S:*" 

But be very careful! Make sure that you do not need any of 
the files on the diskette before using this command. After 
completing the operation the error channel transfers the 
message: 

01 FILES SCRATCHED nn 00 

where nn is the number of deleted files. This message can be 
read with the routine given in section 1.3.3. 



1.3.6 RENAME - Renaming Piles 

You can also change the name of a file on the diskette. The 
command RENAME is provided for this purpose. It has the 
following format: 

RENAME : newname=oldname 

For example, if you want to change the name of the file from 
TEST to PEST you would use the following commands: 

OPEN 1,8,15,"R:PEST=TEST" 
CLOSE 1 
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OPEN 1,8,15 
PRINT#1,"R:PEST=TEST" 
CLOSE 1 



Note that you cannot rename a file until it is CLOSEd. 



1-3.7 COPY - Copying Files 

Using this command, a file can by copied on a diskette. 
Several different sequential files can be used to create a 
new file. If, for example, you have a data record for each 
month of your household expenses and they have the names 
EXP. 01, EXP. 02, etc. you can combine them into quarters 
(EXP. 01 for example) with this command. The COPY command has 
the format: 

COPY:newf ile=oldf ilel ,oldf ile2,. . . 

So, the named data records can be combined as follows: 

OPEN l,8,15,"CsEXP.01 = EXP.01,EXP.02,EXP.03* 
CLOSE 1 

This method of combining data records cannot be used for 
programs. Only a single program can be copied on the 
diskette. Also the name of the new file must not already 
exist on the diskette. 

The COPY command is seldom used. This is because copying 
files onto the same diskette usually makes no sense. The 
only sensible use of the command is to combine several 
sequential or user files into a single file. 

Copying files from one diskette to another diskette is much 
more sensiDle. This is indispensible for data security. If 
you own two disk drives, you can assign the device number 9 
to one of them and use the program COPY/ALL to copy files 
from one to the other. This program is found on the 
TEST/DEMO diskette. 

We have also thought of you who have only one disk drive. A 
utility program is included in section 4.1 to allow you to 
copy individual files and even the entire diskette. 



1.3.8 INITIALIZE - Initializing the Diskette 

The DOS requires a BAM (Block Allocation Map) to be present 
on each disk. The BAM is a layout of the usage of the 
blocks on each diskette. It marks each block on the diskette 
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as free for use or allocated (already in use). If you change 
diskettes in the drive and the new diskette has the same id 
as the old diskette, the DOS will not recognize the fact 
that you have changed diskettes. The BAM of the new diskette 
will be different, but the DOS will still be working with 
the old BAM. 

Therefore, each diskette should be given a unique id when 
you format it. It is a good practice to give each diskette a 
different id. You can force the disk drive to read the BAM 
of a new diskette by issuing the INITIALIZE command. This 
command has the following format: 

PRINT#lfn, "INITIALIZE" 

or shortened to 

PRINT#lfn,"I" 

Example: 

OPEN 1,8, 15, "I" 
CLOSE 1 

If you change diskettes and also change data records, then 
we strongly recommend that you use the INITIALIZE command 
after changing the diskettes, to be safe. 



1.3.9 VALIDATE - "Cleaning Up" the Diskette 

The command VALIDATE frees all allocated blocks that are not 
assigned to normally CLOSEd files. For example, if you OPIN 
a file, and transfer data to that file, but forget to CLOSE 
the file, the VALIDATE command can be used to free the data 
blocks that were written to. If you use the direct access 
commands, be sure to allocate them (using the BLOCK-ALLOCATE 
command) or the VALIDATE command will free them again. 

The command has an additional function: If a file is deleted 
using the SCRATCH command, the file type in the first byte 
of the file entry is set to 0. It no longer appears in the 
directory. If you now change this byte back to its old file 
type with the DOS monitor (described later) or other direct 
access commands, VALIDATE will restore the file. If it has 
not been overwritten, it will be the same as before the 
SCPATCH command. The command has the following format: 

PRINTtlfn, "VALIDATE" 

or the shorter form 

PRINTtlfn, "V" 
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An example: 

OPEN 1,8,15, "V" 
CLOSE 1 

If you have a diskette such that the sum of the file lengths 
plus the number of free blocks does not equal the total 
number available (664), use the VALIDATE command to restore 
it. 

Another example: If you want to store a program or data 
record that uses more than the number of free blocks, the 
DOS will give the error DISK FULL. If the disk had shown 
some blocks free before, the number is now zero. The 
VALIDATE command will restore the original free blocks. 

1.3.10 ? * - The Wildcards 

There are two wildcard characters - the asterisk (*) and the 
characters of the first file on the disk that begins with 
the characters which precede the asterisk. An example: 

LOAD" TEST*", 8 

This command loads the first program that begins with the 
first four letters "TEST". The command: 

LOAD"*", 8 

loads the first program on the diskette because there are no 
characters m front of the asterisk. The asterisk in the 
SCRATCH command has a different effect. If used in the 
SCRATCH command, not only the first file will be deleted, 
but all files. For instance, the command: 

OPEN 1,8,15,'SsTEST*" 
CLOSE 1 

erases all files beginning with the the letters "TEST". This 
must be taken into account! Loading the directory with an 
asterisk can also select certain files. An example: 

LOAD*SA*",8 

loads only the directory of the files that begin with the 
letter "A". 

The DOS offers an additional use of the asterisk that has 
not been mentioned yet. It can also select file types if the 
asterisk is followed by the first letter of the desired file 
type. Here is a summary: 
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selects only sequential files 

selects program files 

selects relative files 

selects user-files 



For example, the command: 

LOAD *$*=P",8 

causes only the directory entries of programs to be loaded 
and shown when you type LIST. This can also be used with the 
SCRATCH command to delete all sequential files, for 
instance. Here is the command: 

OPEN 1,8,15,"S:*=S* 

CLOSE 1 

With the question mark, certain characters of a file name 
can be declared "not relevant". To illustrate the function 
of the question mark, here are two examples of shortened 
file names and their effects: 



A????? 
????TEST 



- refers to a six-letter filename of which 

first character is A 
- refers to an eight-character filename, the 
last four letters of which are TEST 



A combination of asterisks and question toarks is allowed. 
You should notice, however, that an asterisk followed by 
question marks has no rearing.. Two examples of combinations 
of asterisks and question marks: 

????•* - refers to all file names that have four 

characters before a period 
TEST.??* - refers to all file names having at least 7 

characters, of which the first five are 

TEST. 
TEST-??01*=s - refers to all sequential files whose names 

have at least nine characters, the first 

five being TEST- and the eighth and ninth 

being 01 
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1.4 Sequential Data Storage 

A disk drive need not be used exclusively for storing pro- 
grams. If you have written a program that manages a large 
quantity of data, you need a fast way of organizing it. 
Sequential data storage is not the fastest, but it is the 
easiest method of managing data. This method is comparaDle 
to sequential storage on a cassette, which can be maintained 
in a program as Such: 

1. Load the program 

2. Read the entire data file into the memory of the computer 

3. Work with the data in memory (change, delete, combine) 

4. Write the new file on an external medium (cassette, 
diskette) 

5. Exit the program 

The maximum number of data items that the program can handle 
depends on the size of the computer's memory, because a 
single data item cannot be changed or erased directly on the 
cassette or diskette. To that end, the entire set of data 
items must be read in, changed, and then rewritten again. 
Reading and rewriting the data occurs remarkably faster on a 
disk drive than on cassette. 

It is worth mentioning that programs which work with 
sequential data on cassettes can be easily modified to work 
with disk. Only the corresponding OPEN commands need be 
changed. 



1.4.1 The Principle 

A sequential data file consists of several data records that 
are further divided into fields. The following is a name and 
address file and illustrates the principle of sequential 
data storage. Individual names and addresses comprise the 
data records of this file. A record consists of several 
fields (last name, first name, etc.). The structure of the 
file looks something like this: 



Field 1 : Field 2 : Field 3 : Field 1 : Field 2 : Field 3 : 
Data record 1 : Data record 2 

FILE 1 
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Only two records are shown above. The data records of a file 
are stored one after another (sequentially) as are the the 
fields within each record. The fields and records may be of 
any length. For example, field 1 of record 1 may be longer 
than field 1 of record 2. This is possible because the 
fields are separated from each other by a special character 
(the RETURN character), which is generated by the PRINT* 
statement. When read back into the computer by the INPUT* 
statement, the RETURN character is recognized as a field 
separator. 

Each field is associated with a variable when written with a 
PRINT* statement or read with an INPUT* statement. 

How does the computer know, when reading the data, where 
each field ends? Each field ends with a RETURN character. 
The RETURN character has the decimal ASCII value 13. An 
example of a telephone directory file illustrates this. Our 
telephone directory file has three fields: 

FIELD 1 : LAST NAME 

FIELD 2 : FIRST NAME 

FIELD 3 : TELEPHONE EXTENSION 

Let's look at a section of this previously written file (the 
character + symbolizes a RETURN) : 

Position: 1111111111222222222233333333334444444 

1234567890123456789012345678901234 5678901234 56 

Data: SMITH+JOHN+236+LONG+TIM+121+HARRIS+SAM+654+ . . . 



You can see that the fields are of different lengths and are 
all separated by a RETURN character. This RETURN character 
is automatically written after the data field by a PRINT* 
statement, provided the PRINT* statement is not followed by 
a semicolon (which suppresses the RETURN character). 

These data items are assigned to the variables with an 
INPUT* statement. After that, another INPUT* must follow in 
order to read the next field, and so on. The following 
sections explain the fundamentals of writing programs using 
sequential data storage. 



1.4.2 Opening a Sequential Data Pile 

To create a sequential data file, you must first OPEN the 
file. When opening a file to be written to, the following is 
carried out: 

1. The diskette is checked to>see if an existing file has 
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the same name. If so. the error message FILE EXISTS is 
given by the DOS. 

2. The file entry in the directory is written. In the file 
type it is noted that this file is not yet CLOSEd. This 
appears in a directory listing with an asterisk which 
preceeds the file type. 

3. A free block is found, into which the first data items 
are written. The address (track and sector) of this free 
block is stored in the file entry of the directory. 

4. The number of blocks in the file is set to 0, because no 
blocks of the file have been written yet. 



The OPEN command specifies for what purpose (mode) the file 
is to be used (reading or writing). The format of the OPEN 
command looks like this: 

OPEN If n , 8 ,sa , "f i lename , file type .mode" 

When the logical file number is between 1 and 127, a PRINT* 
statement sends a RETUPN character to the file after each 
variable. If the logical file number is greater than 127 
(128-255), the PRINT* statement sends an additional line- 
feed after each RETURN. This is necessary for printers, for 
example, that do not provide an automatic line-feed after a 
RETURN character. 

The secondary address (sa) can be a value between 2 and 14. 
The secondary address indicates the channel over which the 
computer is to transfer data to and from the disk drive. 
Secondary addresses and 1 are reserved by the DOS for 
saving and loading programs. Secondary address 15 is desig- 
nated as the command and error channel. Should several files 
be open at once, they must all use different secondary 
addresses, as only one file can use a channel. If, however, 
a file is opened with the secondary address of a previously 
opened file, the previous file is closed. 

A maximum of 3 channels can be opened with the VIC-1541 at a 
time. When utilizing relative data files, the DOS requires 2 
channels per file. Therefore, the following maximum 
combinations are possible: 

- 1 relative and 1 sequential file 
or - 3 sequential files 

When specifying the filename to be written to (in the OPEN 
command), you must be sure that the file name does not 
already exist on the diskette. If a file that already exists 
is to be to opened for writing, an at sign followed by a 
colon (@:) must be placed in front of the file name (same as 
in the SAVE command). For example: 
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OPEN l,8,2,*e:ADDRES5BS,S,W" 

The file type must be given when the file is opened. The 
file type may be shortened to one of following: 

S - sequential file 

U - user file 

■p - program 

R - relative file 

User files are sequential files that are listed in the 
directory with the file type USR. It is not a data file in 
the true sense. This file type is usually used when output 
that normally goes to the screen (BASIC listing, directory) 
is sent to the disk. In section 1.4.6 you find a description 
of this technique. 

The last parameter (mode) establishes how the channel will 
used. There are four possibilities: 

W - Write a file (WRITE - section 1.4.3) 
R - Read a file (READ - section 1.4.4) 
A - Add to a sequential file 

(APPEND - section 1.4.4) 
M - read a file that has not been closed 

("discovered" by us in the DOS listing and 
explained in section 1.4.5) 

Now open a sequential file with the name SBOU.TEST for 
writing: 

OPEN 1,8, 2, "SEOO.TEST, S,W" 

If you now load the directory with LOAD'S", 8 and then LIST 
it, you see this file listed with an asterisk before the 
file type: 

SEpU.TEST *SEO 

But you are no longer allowed to close this file! After a 
file is OPENed and data written to it, it must be closed 
Defore the directory is loaded! 

While a file is open, the command/error channel 15 may be 
opened, but when channel 15 is closed, all other channels 
are closed as well. You must take note of this. 

Now some examples of the OPEN command: 

OPEN l,8,2,"SEOU.TEST,S,R" - open a sequential file for 

reading 
OPEN 2,8,3,"SE0U.TEST,U,W" - open a user file for writing 

OPEN 3,8,4,"TEST,P,R" - open a program file for 

reading 
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OPEN 4 ,8 ,5 , "SEOU.TEST,S,A" - open a sequential file for 

appending data 

OPEN 5,8 ,6 ,"CSTMRS.1983,S,M" - open the unclosed customer 

file for reading 



1.4.3 Transferring Data Between Disk and Computer 

After opening a file for writing, you transfer data to be 
stored to the diskette with the PRINT* statement. This 
statement transmits an additional RETURN that is required 
for separating data. In the following example, a file is 
OPENed, data written to it, and CLOSEd again. PRINT* cen 
also be used as a direct command, that is, outside of the 
program, so the following commands can be typed one after 
the other and executed. Now open a file with the name 
"TEST": 

OPEN 1,8,2,"TEST,S,W* 

You should notice that the red LED on the disk drive was 
lit. It signals the fact that a file was OPENed. You can now 
write to the file named TEST. Here is how we would write a 
name and address record consisting of 4 fields: 

PRINT#1,"SAM" 

PRINT*1, "HARRIS" 

PRINT* 1," 2001 MAIN STREET" 

PRINT#1,"ANYT0WN" 

Now these data items have been written to the file so we can 
close the file with CLOSE 1. The red LED should go out. In 
order to read this data again, you must open the file in the 
read mode (R). Because the INPUT* statement cannot be used 
directly, a small program must be written: 

10 OPEN 1,8,2,"TEST,S,R" 

20 INPUT#1,FNS 

30 INPUT* 1,LN$ 

40 INPUT* 1,STS 

50 INPUT* 1,CTS 

6 CLOSE 1 

70 PRINT"FIRST NAME: " ; FN$ 

80 PRINT" LAST NAME: " ; LN$ 

90 PRINT"STREET: " : ST$ 

100 PRINT"CITY: ";CT$ 

Tne program is simple to explain: 

Line 10 The file TEST is opened for reading 
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Lines 20-50 The data are read in the same order as they 

were written. Variables are used so that the 
data can be printed later. 

Line 60 The file is closed. 

Lines 70-100 The data are printed out on the screen. 

When you enter this program and type RUN, the data will 
appear as written earlier, on the screen: 

FIRST NAME: SAM 

LAST NAME! HARRIS 

STREETS 2001 MAIN STREET 

CITY: ANYTOWN 

Four INPUT# statements were used to read the data because 
the name and address record is composed of four fields. But 
when a record is written that has, say, 20 fields, it is 
very time-consuming to type out 20 INPUT* statements. A loop 
can make this much simpler. This is obvious in this example: 

10 OPEN 1,8,2,"TEST,S,B" 

20 FOR 1=1 TO 4 

30 INPUT* 1,D$( I) 

4 NFXT I 

50 CLOSE 1 



60 PRINT"FIRST NAME: 
70 PRINT" LAST NAME: 
80 PRINT"STREET: 
90 PRINT"CITY: 



D$(l) 
D$(2> 
D$(3) 
DS(4) 



Here, instead of four separate string variables, an array 
with index 1-4 is used. It should be noted that in BASIC 
2.0, if an index higher than 10 is used, the array must be 
dimensioned with a DIM statement. Should v»e want to read in 
20 fields, the statement DIM D$(20) must be given before any 
are read. 

There are still more ways of shortening input and output of 
data. With the INPUT statement for keyboard input, several 
variables can be given in one line, separated by commas. For 
example: 

INPUT FN$,LN$,TE 

With this statement, three variables must be entered, such 
as: 

NICHOLAS, MULLER, 7465 

The read data can be printed on the screen with: 

PRINT FN$,LN$,TE 
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In this manner, sequential data can be written and later 
read back in again. The only difference is that the string 
variables containing the data to be written must be 
separated by commas enclosed in quotes. For example, if you 
wish to write the previous variables to a file, the PRINT* 
statement command must changed as follows: 

PRINT#1,FNS","LNS","TE 

Numeric variables need only be separated with a comma from 
the other variables. To read the data, use the command: 

INPUT#1,FVS,LNS,TE 

Because the maximum number of characters read by an INPUT* 
statement may not exceed 88, this method of reading is only 
marginally useful. If a field in a record is more than 88 
characters long, a different statement must be used. This is 
the GET* statement, which reads each individual character, 
one at a time. Suppose you want to read a record of which a 
field is 100 characters long. This record can be placed in a 
string variable with the following routine: 



10 OPEN 1,8, 

20 D$="" 

30 FOR 1=1 TO 100 

40 GET#1,X$ 

50 D$ = D$+X$ 

60 NEXT I 

70 GET#1,X$ 

80 CLOSE 1 

At the end of this program, the string variable DS will 
contain the 100 characters of the data field. After opening 
a sequential data file, the DOS establishes a pointer that 
always points to next character to be read. We assume that 
the data was written with a PRINT* statement without a 
trailing semicolon, so that a RETURN was written at the end 
of the data item. After reading the first 100 characters, 
the pointer points to this RETURN. The next GET* in line 70 
is necessary to read the RETURN found at the end of the 
field. Then the next GET* statement can read the next field 
and not the RETURN. 

In the above example, we used data records with a constant 
length of 100 characters. According to the rules of sequen- 
tial access, the length of data records need not be con- 
stant. Since the INPUT* statement can only read a maximum of 
88 characters, we will use the GET* statement to recognize 
the RETURN as the end of a field. Such a routine looks like 
this: 



10 OPEN 1,8, 

20 S$="" 

30 GET#1,X$ 

40 IF X$=CHRS(13) THEN 80 
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50 SS=SS+XS 

60 IF ST<>64 THEN 30 

70 CLOSE 1:END 

80 PRINT SS 

90 GOTO 20 

Here a file with variable record length is read and printed 
on the screen. Naturally, you can use the data in other ways 
instead of printing it on the screen. 

To avoid the problem of reading data records of more than 88 
characters, divide the record into several parts, which you 
can combine after reading them. 

1.4.4 Adding Data to Sequential Files 

If you want to add data to a sequential file, you have to 
read the entire file into memory, add the data, and write 
the new file back to the diskette again. This is a very 
time-consuming process. For this reason, tne DOS offers an 
easier alternative to add to a sequential data file without 
reading the entire file. Tnis is made possible through the 
OPEN mode A (Append). If you have a sequential data file, as 
in the previous section, you can add data to it by selecting 
the A mode in the OPEN command. An example follows. 

Give the following commands: 

OPEN 1,8,2,"TEST2,S,W" 
PRINT#1,"1. DATA RECORD" 
CLOSE 1 

Now you have a sequential data file containing one data 
record. This file can be expanded with two more records as 
follows: 

OPEN 1,8,2,"TEST2,S,A" 
PRINT#1,"2. DATA RECORD" 
PRINT#1,"3. DATA RECORD" 
CLOSE 1 

Now the file TEST2 has three data records. You can check 
this with the following program: 

100 OPEN 1,8,2,"TEST2,S,R" 

110 FOR 1=1 TO 3 

120 INPUT* 1,DR$ 

130 PRINT DR$ 

140 NEXT I 

150 CLOSE 1 

After the program starts, the data records is read and 
printed on the screen. 
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You can see that the append A mode makes it quick and easy 
to expand a sequential data files. 



1.4.5 Closing a Sequential File 

OPENed data files can be closed with the CLOSE command. This 
command has the format: 

CLOSE lfn 

The parameter lfn is the logical file number of the file 
that was used in the OPEN statement. Should several files 
need to be closed a CLOSE statement roust be given for each 
one. When the last file is closed, the red LED on the drive 
goes out. 

As you already know, data is sent to the disk drive over a 
channel. This channel uses storage inside the disk (called a 
buffer) in which the data transmitted by the computer is 
stored. When this buffer is full, its contents are written 
to the diskette. 

When the file is closed, any data still in the buffer is 
written to the diskette. An unclosed file is incomplete and 
is also not recognized by the DOS as a properly closed file. 
The DOS allows no read access in the R (Read) mode and 
responds WRITE FILE OPEN when trying to read an unclosed 
file. 

This could be a problem if the DOS did not allow read access 
to a file. For this reason, the DOS offers the M mode. A 
file that is marked as an improperly closed file can be read 
in this mode. It is logical to then write these records to a 
second file which can then be properly closed. In this way 
one can "rescue" a file. 

The following program will transfer an improperly closed 
file (original file) to a correctly closed file (destination 
f lie) : 

100 INPUT"ORIGINAL FILE NAME";SS 

110 INPUT" DESTINATION FILE NAME";D$ 

120 OPEN 1,8,2,S$+",S,M" 

130 OPEN 2,8,3,D$+",S,W" 

140 INPUT#1,X$ 

150 PRINT#2,X$ 

160 IF ST064 THEN 140 

170 CLOSE 1: CLOSE 2 

180 OPEN 1,8,15,"S:"+S$ 

190 CLOSE 1 

At the completion of the program, the unneeded original file 
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is deleted (scratched). 

1.4.6 Redirecting the Screen output 

Any output appearing on the video screen (PRINT, LIST, etc) 
can be redirected to a sequential data file. This is accon - 
plished through the CMD command, which has the following 
format : 

CMD lfn 

For this to occur, a file of type USR must be opened. To 
transfer a BASIC program listing, for instance, as a 
sequential file on diskette, use the following commands: 

OPEN 1,8,2,"TEST.LIST,U,W" 
CMD 1 
LIST 
CLOSE 1 

The command CLOSE 1 causes further output to be sent to the 
screen. 

Storing a program as a sequential file on disk is very 
useful, if, for example, you would like to read a program 
with a word processor to edit it. It is assumed that the 
word processor in this case reads data stored in ASCII code. 

This is how the listings in this book were transferred from 
a Commodore 64 to a Commodore 8032. 

In order to print this file on the screen again, you need 
the following routine: 

10 OPEN 1,8, 2, "TEST. LIST, U,R" 

20 GET#1,XS 

30 PRINT X$ 

40 IF ST<>64 THEN 20 

50 CLOSE 1 

This routine is a loop that reads every character (byte) of 
the file and displays it on the screen. The end of the file 
is signalled Dy the status variable which is set to 64 at 
the end. To send a sequential file to the printer, use the 
following program: 

10 OPEN 1,8, 2, "TEST. LIST, U,R" 

20 OPEN 2,4 

30 GET#1,X$ 

40 PRINT#2,X$ 

50 IF ST<>64 THEN 30 

60 CLOSE 1 
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Here it assumed that the printer is connected as device 
address 4. 



1.4.7 Sequential Files as Tables in the Computer 

Sequential data files must reside completely in the computer 
for data management. Most of the time, a two dimensional 
table can De used. This table is also called an array or 
matrix, because a data element can be addressed through the 
input of two coordinates. To this end, you use a two dimen- 
sional variable, which must be reserved with a DIM state- 
ment. The first dimension corresponds to the data record, 
the second dimension to the field inside the record. The 
following diagram shows an example of a table: 

Field 1 Field 2 Field 3 
,1 1 

Record 1 « DS<1,1) K DS(1,2) 11 D$(l,3) 11 

H 1 

Record 2 « D$(2,l) H D$(2,2) H D$(l,3) t 
„ n 

Record 3 1 D$(3,l) H D$(3,2) 11 D$(3,3) H 
,1 „ 

Record 4 H D$(4,l) H DS(4,2) 11 DS(4,3) H 
,1 n 

Record 5 II D$(5,l) H D$(5,2) II D$ ( 5 , 3 ) H 
v n 

Record 6 II D$(6,l) 11 D$(6,2) H D$(6,3) K 
„ n 

This table is a file composed of six records which have 
three fields each. The variable D$ is reserved with DIM 
D$(6,3). To read a sequential file as a table, it is 
necessary to create such a file with, for example, six 
records with three fields each. For this purpose, use the 
following program: 

100 OPEN 1,8,2,"TABFILE,S,W" 

110 FOR X=l TO 6 

120 PRINT CHRSU47) 

130 PRINT"RECORD " jX 

140 PRINT" " 

150 FOR Y=l TO 3 

160 PR1NT"FIELD ";¥;": " ? 

170 INPUT X$ 

180 PRINT#1,XS 

190 NEXT Y 

200 NEXT X 

.210 CLOSE 1 

Two nested loops are used here, whose variables are numbered 
with the record and field. Enter six data records. When the 
program is done, these records will be contained on the 
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diskette with the filename of TABFILE. A tip: save this 
program with SAVE"TABPROG",8 so you can use it later. 

This file can now be loaded into the computer as a table. 
Two nested loops indexed for the table are necessary: 

100 OPEN 1,8, 2, "TABFILE. SE0,S,R" 

110 DIM D$(6,3) 

120 FOR X=l TO 6 

130 FOR Y=l TO 3 

140 INPUT#1,D$(X,Y) 

150 NEXT Y 

160 NEXT X 

170 CLOSE 1 

This program places data into the table. You can check this 
with a PRINT statements, to see if the data has been stored 
in the right place. Because each field can be addressed with 
indices, you can give a command like PRINT D$(l,2) to see 
the second field of record one. It is meaningful to be able 
to display the fields of a given record. Use the following 
routine for this purpose, after you have saved the previous 
program: 

100 INPUT-RECORD NUMBER: " ;X 

110 PRINT" " 

120 PRINT"FIELD 1: ";D$(X,D 
130 PRINT"FIELD 2: ";D$(X,2) 
140 PRINT"FIELD 3: ";D$(X,3) 

Notice that the first index I the record number) after the 
question is used as the variable in the field output. The 
second index (field number) is then constant. 

This table can now be altered as desired. Add the following 
lines to the preceeding program: 

160 PRINT" " 

170 INPUT"FIELD TO CHANGE :"; Y 

180 INPUT"NEW CONTENTS! ";D$(X,Y) 

190 PRINT"OK" 

200 PRINT" FURTHER CHANGES (Y/N)?" 

210 GET X$:IF X$="" THEN 210 

220 IF X$="Y" THEN 100 

230 IF X$="N" THEN END 

240 GOTO 210 

Here the number of the field to De changed is used as the 
second index, which is adjacent to the index of the desired 
record to input the new table element. 

This modified table must now be written to the diskette 
again. You can use the following routine. Don't forget to 
save the previous edit program first! 
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100 OPEN 1,8,2,"?:TABFILE,S,W" 

110 FOR X=l TO 6 

120 FOR Y=l TO 3 

130 PRINTtl,D$(X,Y) 

140 NEXT Y 

150 NEXT X 

160 CLOSE 1 

This routine also is relatively short because of the use of 
nested loops. The g: in line 10 is necessary in order to 
overwrite the existing file. 

Accessing data through the use of the table is very fast. 
The access time is independent of the size of the table. The 
size of the table and therefore the quantity of data is 
dependent on the memory capacity of the computer, however. 
The large storage area of the Commodore 64 is excellent for 
table management. If you write a data management program 
that occupies 8K bytes, then 30K bytes still remain for 
storing data. If you consider that storing a name and 
address record of about 80 characters, you can still store 
384 records in memory! And this with an access time that 
cannot be surpassed by refined data management techniques 
(indexed sequential, relative). But with larger quantities 
of data, sequential storage is no longer feasible. 



1.4.8 Searching Tables 

As mentioned in the table processing section, each data 
record of a table can be indexed. Because the table is two 
dimensional, the first index selects the data record. If a 
record of the table is to be changed or accessed, the 
operator must know the record number. The record number can 
be a part or customer number. There are files, however, for 
which there is no suitable method of numbering. In such 
files, the number of the record must be found through a 

search of all the records. Here is a practical example: 

First of all, create a data file with the following program. 
Names and telephone numbers are saved in the examples 

100 OPEN 1,8,2,"TELEDAT,S,W" 

110 PRINT CHRSQ47) 

120 INPUT"LAST NAME :";LN$ 

130 INPUT"FIRST NAME -.")FN$ 

140 INPUT"AREA CODE :";AC$ 

150 INPUT-NUMBER i";NU$ 

160 PRINT" INFORMATION CORRECT (Y/N)?" 

170 GETXSrIF XS="" OR X$<>"Y" AND X$<>"N" THEN 170 

180 IF X$="N" THEN 110 

190 PPINT#1,LNS" ,"FNS" , "ACS" , "NUS 
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200 PRINT"MORE INPUT (Y/N)?" 

210 GETXS:IF X$="" OR X$<>"Y" AND X$<>"N" THEN 200 

220 IF X$="N" THEN 240 

230 GOTO 110 

240 CLOSE 1 

Program Documentation: 

Line 100 The sequential file "TELEDAT" is opened for 
writing 

Line 110 The screen is cleared 

Lines 120-150 The four fields are entered from the keyboard 

Lines 160-180 If the data are not correct, they can entered 
again 

Line 190 The four fields are written to disk 

Lines 200-220 Here the execution of the program can be 
ended 

Line 230 Input will be continued 

Line 240 The file opened in line 100 is closed 

Type this program in, RUN it, and enter some data. Save the 
the program on diskette, so you can combine it with other 
routines later if you like. In the last section of this 
chapter, is a complete program for managing your telephone 
numbers. 

If you have entered some data, you would probably like to 
find a telephone number. To do so, you could print the 
entire file on the screen or printer and find it yourself. 
This is, however, a wasteful method, especially if you have 
entered many records. 

The search for the telephone number corresponding to a given 
name can be performed by the computer. It runs through the 
whoSe list, looking for the desired name. Once found, it 
gives you the complete record which contained that name. The 
following routine accomplishes this: 

100 OPEN 1,8, 2, "TELEDAT, S,R" 

110 DIM D$(100,4) :X=1 

120 INPUT* 1,D$(X,1) ,D$(X,2),D$(X,3) ,D$tX,4> 

130 IF ST<>64 THEN X=X+l:GOTO 120 

140 CLOSE 1 

150 PRINT CHR$(147) 

160 PRINT"DESIRED NAME: " ; N$ 

170 FOR 1=1 TO X 

180 ID D$(I,1)=N$ THEN 210 

190 NEXT I 
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200 PRINT"NAME NOT FOUND! ":GOTO 280 

210 PRINT"NAME FOUND:" 

220 PRINT" " 

230 PRINT" LAST NAME: ";D$(I,1) 

240 PRINT"FIRST NAME: ";D$(I,2) 

250 PRINT" AREA CODE: ";D$(I,3) 

260 PRINT" NUMBER: "?D$(I,4) 

270 PRINT" " 

280 PRINT"MORE (Y/N)?" 

290 GETX$:IF X$="" OR X$<>"Y" AND X$<>"N" THEN 290 

300 IF X$="Y" THEN 150 

310 PRINT" PROGRAM DONE":END 

Program Documentation 

Line 100 The sequential file "TELEDAT" is opened for 
reading 

Line 110 The table is dimensioned for 100 records and 
the index is set to one 

Line 120 The data records are read into the table 

Line 130 The status variable ST is checked for end of 
file (indicated by a value of 64). If the 
end has not been reached, the index is 
incremented and a new record is read. 

Line 140 The file opened in line 100 is closed 

Line 150 The screen is cleared 

Line 160 The last name to be searched for is read from 
the keyboard and placed in the variable N$ 

Lines 170-190 The loop searches the table of records, 

checking the name fields against the desired 

name. If the position is found, the program 

branches to the output routine 

Line 200 The name was not found 

Lines 210-270 The record containing the desired name is 
displayed 

Lines 280-310 The possibility to search for a new name is 
allowed 

You will notice that this search is quite fast when the data 
is already loaded into the computer. Searching the 
computer's memory is faster than searching the diskette. The 
program can be easily changed to search for a desired field 
other than the name. You might want to search for an area 
code, for instance. The first program stops the search when 
the first matching data record is found. This is not always 
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desired, however. If, for instance, you wish to search the 
table looking for a particular area code and want all 
matches to be displayed, a different routine is needed. The 
routine must continue the search after the first match is 
found. The next program takes care of this: 

100 OPEN 1,8,2,"TELEDAT,S,R" 

110 DIM D$(100,4) :X=1 

120 INPUT#1,D$(X,1),D$(X,2),D$(X,3),D$(X,4) 

130 IF ST<>64 THEN X=X+l:GOTO 120 

140 CLOSE 1 

150 PRINT CHR$(147) 

160 PRINT"AREA CODE TO SEARCH FOR: ";AC$ 

170 FOR 1 = 1 TO X 

180 IF D$(I,3)=AC$ THEN 210 

190 NEXT I 

200 PRINT" END OF DATA!":GOT0 270 

210 PRINT" " 

220 PRINT" LAST NAME: ";D$(I,1) 
230 PRINT"FIRST NAME: *;D$(I,2) 
240 PRINT"AREA CODE: " ; D$ ( 1 , 3 ) 
250 PRINT"NOMBER: ";D$(I,4) 

260 PRINT" " 

270 PRINT"MORE (Y/N)?" 

280 GETX$:IF X$ = "" OR X$<>"Y" AND XSO"N" THEN 280 

290 IF X$="Y" THEN 190 

300 PRINT"SEARCH DONE !": END 

Here the search is continued if a record with the 
appropriate area code is found. This happens in line 290, 
which branches back to the loop instead of ending the 
program. After searching all of the records, the program 
responds END OF DATA. If you understand the operation of 
this program, you can now develop a search for the last 
name. With the help of the previous programs, this should 
present no difficulty. 



1.4.9 Simple Sorting of Tables 

In data processing, it is often necessary to sort data into 
numeric or alphabetic order. This has always been a time 
consuming task, which the programmer has tried to shorten I y 
using better sorting methods. Sorting is certainly a time 
consuming task when performed with the programming language 
BASIC, which is relatively slow. 

Why should we sort the data at all? Suppose you had a 
telephone book in which the names were not ordered. You 
would have search the entire book from beginning to end to 
find a name. Sorting offers advantages when searching data. 
The computer can also search sorted data faster. 
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There are several search methods which differ mainly in 
their speed of execution. The simplest method compares each 
data item with every other. If a table is supposed to be 
sorted in ascending order, the first item in the table is 



compared to the second. If the first is greater, it is 
exchanged with the second. After that, the first will te 
compared to the third, and so on, until the last item is 
reached. Now the smallest item is at the beginning, in the 
right place. The next time through, the first item is no 
longer needed. A flowchart of the program logic appears 
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This sort program starts using an index of 1, which is 
stored in tne variaDle I. The second index is the variable 
X, which receives a value one greater than I. Then the first 
item is compared to the second. If the value of TA(I) is 
greater then TA(X), the program must use a temporary 
variable, TA(0), to make the exchange between the two. After 
this, the value of X is incremented, to three, and TA(I) is 
again compared to TA(X), etc. when the last item in the 
table is reached, (X > last index), the first iter- will be 
the smallest, and the index I is incremented by one. Now the 
second item is compared to every other (starting with the 
third), and so on. 

This sort method looks quite complicated at first glance. 
Comparisons in memory are done relatively quickly, however. 
This method is sufficient for small quantities of data. 

In order to run this program, a table must be built. Tnis 
example uses a table with twelve items containing alpha- 
numeric data (strings). The table is filled Dy the following 
routine: 

100 DIM TA$(12) 
110 FOR 1=1 TO 12 
120 INPUT TAS(I) 
130 NEXT I 

This program allows you to enter twelve strings, which are 
then sorted with the following program: 

140 1=1 

150 X=I+1 

160 IF TAS(I) < TAS(X) THEN 180 

170 TA$(0)=TA$(I) :TAS(I)=TA$(X) :TA$ ( X) =TA$ ( ) 

180 X=X+1 

190 IF X <= 12 THEN 160 

200 1=1+1 

210 IF I <> 12 THEN 150 

220 FOR 1=1 TO 12 

230 PRINT TAS(12) 

240 NEXT I 

The table is sorted and displayed on the screen. If, instead 
of a one dimensional table, you want to sort a two 
dimensional table such as our telephone file, exchange the 
fields by changing lines 160-170 as below: 

160 IF DS(I,1) < DS(X,1) THEN 180 

170 DS(0,1)=D$(I,1):D$(I,1)=DS(X,1): 
DS ( X , 1 ) =DS ( , 1 ) 

171 D$(0,2)=D$(I,2) :D$(I,2)=D$(X,2) : 
DS(X,2)=DS(0,2) 

172 D$(0,3)=DS(I,3) : D$( I ,3) =DS(X ,3) : 
D$(X,3)=DS(0,3) 

173 D$(0,4)=D$(I,4) :DS(I,4)=D$(X,4) : 
DS(X,4)=DS(0,4) 



37 



Anatomy of the 1541 Disk Drive 



It is very time consuming to sort a greater amount of data 
with this method. If you have a large amount of data to be 
sorted, we recommend that you use the very fast machine 
language sort routine from our book Commodore 64 Tips & 
Tricks. 



1.4.10 HAILING LIST MANAGEMENT with Sequential Data Storage 

At the end of this section, is a mailing list management 
program that every user will hopefully find easy to use. At 
the same time, this program provides insight into the opera- 
tion of many data processing techniques. 

A mailing list record of this program consists of the 
following fields: 

- NAME 1 

- NAME 2 

- STREET 

- CITY, STATE 

- ZIP CODE 

- TELEPHONE NUMBER 

- NOTES 

The use of the fields 'NAME 1' and 'NAME 2' are up to the 
user. For instance, 'NAME 1" can be the first name and 'NAME 
2" the last name, or 'NAME 1' the company name and "to the 
attention of..." in 'NAME 2'. The field 'NOTES' can be used 
for grouping the addresses (family, business, friends, 
etc. ) . 

The program offers the following Main Menu options: 



-1- 


LOAD DATA 


-2- 


SAVE DATA 


-3- 


INPUT DATA 


-4- 


EDIT DATA 


-5- 


SELECT/PRINT DATA 


-6- 


DELETE DATA 


-0- 


END PROGRAM 


,0AD 


DATA 



Use this function to enter the name of the mailing list 
file that is to be maintained. If the file exists on the 
diskette, it is loaded and ready to be used. The number 
of records in the file is displayed. If an error is 
encountered while loading, or if the file does not exist, 
the message DISK ERROR! is displayed. At the conclusion 
of this function, the Main Menu reappears. 
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-2- SAVE DATA 



Use this function to write an updated or expanded copy of 
the mailing list to the diskette. If the file name 
already exists, then the file is overwritten. 

The mailing list should be saved often while using the 
program in case a power outage should erase the 
computer's memory. After saving,- the file can be used 
further, without having to reload it in again. 

!- INPUT DATA 
Use this function to add records to the mailing list: 

1. When no data has been previously loaded. 

First a file name for the mailing list is entered. 
Enter a file name which does not already exist on the 
diskette or the old file is overwritten. All records 
that are inputted are new to the mailing list. 

2. When data has been previously loaded. 

All records that are inputted are added to the 
existing mailing list. 

After entering an mailing list entry, the message CORRECT 
(Y/N)? is displayed. Here you may correct the data. If 
the entry is not correct, press the N key. If the entry 
is correct, press Y. Now the message MORE INPUT (Y/N)? is 
displayed. If you want to enter another mailing list 
entry, press Y. If you press N, the Main Menu appears 
again. 



-4- EDIT DATA 

Use this function to change existing mailing list rec- 
ords. Both Name 1 and Name 2 must be entered. If both 
names are not known, the other can be found with the 
SELECT/PRINT DATA routine. After entering the names, the 
mailing list is searched for matching names. When they 
are found, the complete address is displayed with the 
fields numbered. Now you must enter the number of the 
field which you want to change. The new contents are 
requested. The record is once again displayed in its 
updated form. If no more changes to this record are 
required, press 9. The program asks if another record is 
to be changed. This question is to be answered by 
pressing Y or N. 
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-5- SELECT/PRINT DATA 

Use this function to search for certain records and print 
or display them. You must first specify if the selected 
records are to be printed on the screen (S) or the 
printer (P). If you have selected the printer, you must 
again choose if the data is to be printed with all fields 
on normal paper (P), or if fields 1-5 are to be printed 
on mailing labels (M). The address labels must be in a 
single column and measure 89mm x 36mm. 

In order to select the data, enter search criteria. For 
fields which are not relevant, simply press RETURN. If, 
for example, you want to find all addresses in Grand 
Rapids, press RETURN for the first three fields and type 
GRAND RAPIDS, MI for the fourth, and press RETURN for the 
next three. 

An example: 

NAME 1 : M 

NAME 2 : <return> 

STREET : <return> 

CITY, STATE : <return> 

ZIP CODE : <return> 

TELEPHONE NUMBER : <return> 

NOTES : FAMILY 

All family members whose name 1 begins with 'M' will be 
displayed. 

You can see how versatile this search is. Try it out 
yourself. 



-6- DELETE DATA 

Use this function to delete records. After entering the 
first and second names of the record, the record is read 
and the remaining fields are displayed. Then you are 
asked to confirm that the record is to be deleted. If you 
press Y, the record is deleted. 



- END PROGRAM 

Use this function to leave the program. Before the 
program is ended, you are reminded that you can restart 
the program without losing data by typing GOTO 110. This 
is important if you forget to save the data before ending 
the program. 
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Here is the program listing: 



100 POKE 53280, 5:POKE53281,2:PRINTCHR$(158) ; :DIMD$ ( 100 ,7 ) 

110 GOSUB2030 

120 PRINT"SELECT THE DESIRED FUNCTION:" 

130 PRINT" ": PRINT 

140 PRINT" -1- LOAD DATA" 

150 PRINT" -2- SAVE DATA" 

160 PRINT" -3- INPUT DATA" 

170 PRINT" -4- EDIT DATA" 

180 PRINT" -5- SELECT/PRINT DATA" 

190 PRINT" -6- DELETE DATA": PRINT 

200 PRINT" -0- END PROGRAM" 

210 PRINT 

220 PRINT" CHOICE (0-6)?" 

230 GETX$:IFX$<"0"ORX$>"6"THEN230 

240 IF X$O"0"THEN340 

250 PRINT:PRINT" ARE YOU SURE (Y/N)?" 

260 GETXS:IFXS<>"N"ANDXSO"Y"THEN260 

270 IFX$="N"THEN110 

280 GOSUB2030 

290 PRINT"THE PROGRAM CAN BE RESTARTED WITH 

300 PRINT" 'GOTO 110" " 

310 PRINT" WITHOUT LOSS OF DATA" 

330 END 

340 ONVAL(XS)GOSUB360,5 40,680,880,1190,1770 

350 GOTO 110 

360 REM ********* 

370 REM LOAD DATA 

380 REM ********* 

390 GOSUB 2030 

400 INPUT"NAME THE FILE : " ; FN$ 

410 OPEN 15,8,15 

420 0PEN1,8,2,FN$+",S,R" 

430 INPUT#15,FE:IF FE=0 THEN 460 

440 PRINT"DISK ERRORi" 

450 GOTO 510 

460 X=l 

470 INPUT* 1 , D$ ( X , 1 ) , D$ ( X , 2 ) , D$ ( X , 3 ) , DS ( X , 4 ) , D$ ( X , 5 ) , D$ ( X , 6 ) , 

D$(X,7) 
480 IF ST<>64 THEN X=X+1 :GOTO470 

490 PRINT"FILE IS LOADED AND CONTAINS" ;X ; "RECORDS. " 
500 PRINT 
510 CLOSE :CLOSE15 
520 PRINT"RETURN FOR MORE" 
530 INPUTX$: RETURN 
540 REM ********* 
550 REM SAVE DATA 
560 REM ********* 
570 IF X>0 THEN 590 
580 GOSUB2230: RETURN 
590 GOSUB 2030 

600 OPEN 1,8,2,"P: ,, + FNS + ,, ,S,W" 
610 FORI=lTOX 
620 PRINT#1,D$(I,1)","DS(I,2)","D$(I,3) ; 
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630 PRINT#1,D$(I,4)","D$(I,5)","D$(I,6)","D$(I,7) 

640 NEXT 

650 PRINT"DATA IS SAVED" :CL0SE1 :RETURN 

660 PRINT"RETURN FOR MORE" 

67 INPUTX$: RETURN 

680 REM ********** 

690 REM INPUT DATA 

700 REM ********** 

710 IFX>0THEN730 

720 GOSUB2030:INPUT"FILENAME " J FN$ 

7 30 X=X+1 

740 GOSUB2030 

750 PRINT"INPUT DATA:" 

760 PRINT" ":PRINT 

770 I=X:GOSUB2110 

780 FORI=lT07:PRINTCHR$(145) ;:NEXT 

790 F0RI=1T07:PRINTTAB(12) ; : INPUTD$ (X , I ) .-NEXT 

800 PRINT:PPINT"CORRECT (Y/N)?" 

810 GETX$:IFX$<>"N"ANDX$O"Y n THEN810 

820 IFX$="Y"THEN840 

830 GOTO 740 

840 PRINT"MORE INPUT (Y/N)?" 

850 GETX$:IFX$O"N"ANDX$O"Y"THEN850 

860 IFX$="Y"THEN730 

870 RETURN 

880 REM ********* 

890 REM EDIT DATA 

900 REM ******jri* 

910 IF X>0THEN930 

920 GOSUB2 230: RETURN 

930 GOSUB2030 

940 INPUT"NAME 1: ";N1$ 

950 INPUT"NAME 2: ";N2$ 

960 FORI=lTOX 

970 IF D$(I,1)=N1$ANDD$(I,2)=N2$THEN1010 

980 NEXTI 

990 PRINT"NAME NOT FOUND 1 " 

1000 PRINT"RETURN FOR MORE" : INPUTX$ : RETURN 

1010 GOSUB2030 

1020 PRINT"-1- NAME 1 : " ; D$ ( I , 1 ) 

1030 PRINT"-2- NAME 2 : " ; DS ( 1 , 2 ) 

1040 PRINT"-3- STREET j";D$(I,3) 

1050 PRINT"-4- CITY, STATE : " ; D$ ( I , 4 ) 

1060 PRINT"-5- ZIP CODE :";D$(I,5) 

1070 PRINT"-6- TELEPHONE : " jD$(I,6) 

1080 PRINT"-7- NOTES :"jD$(I,7) 

1090 PRINT"NO. OF FIELD TO CHANGE: ": PRINT" ( 9=NO 

CHANGES)" 
1100 GETX$:IFVAL(X$X10RVAL(XS)>7ANDVAL(X$)09THEN1100 
1110 IFVAL(X$)=9THEN1150 
1120 Y=VAL(X$) 

1130 INPUT"NEW CONTENTS" j D$( I, Y) : PRINT 
1140 GOTO 1010 

1150 PRINT"MORE CHANGES (Y/N)?" 
1160 GETXS:IFX$<>"Y"ANDX$O"N"THENll60 
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1170 IFX$="Y"THEN880 

1180 RETURN 

1190 REM ***************** 

1200 REM SELECT/PRINT DATA 

1210 REM ***************** 

1220 IF X>0THEN1240 

1230 GOSUB2 230: RETURN 

1240 GOSUB2030:PRINT"OUTPUT TO PRINTER ( P) OR SCREEN (S)?" 

1250 GETX$:IFX$O"S n ANDX$O"P"THEN1250 

1260 O$=X$:IFO$="S"THEN1300 

1270 PRINT:PRINT"PAPER (P) OR MAILING LABELS (M)?" 

1280 GETX$:IFX$O"P"ANDX$O"M"THEN1280 

1290 D$=X$ 

1300 GOSUB2030 

1310 PRINT"ENTER THE SEARCH DATA:" 

1320 PRINT"PRESS RETURN BY IRRELEVANT FIELDS." 

1330 PRINT" ■■ . print 

1340 I=0:GOSUB2110 

1350 F0RI=1T07:PRINTCHR$(145) ; :S$ ( I ) ="" :NEXT 

1360 F0RI=1T07:PRINTTAB(12);:INPUTS$(I) :NEXT 

1370 IFO$="S"ORD$="M"THEN1450 

1380 GOSUB2030:PRINT"PRINTER READY (Y)?" 

1390 GETX$:IFX$O"Y"THEN1390 

1400 OPEN 1,4 

1410 PRINT* 1, "NAME 1" ; SPC( 8 ) ; "NAME 2" ; SPC( 8 ) ; "STREET" ; 
SPC ( 1 ) ; 

1420 PRINT#1,"CITY, STATE" ; SPC( 4 ) ; " ZIP CODE TELEPHONE NOTES" 

1430 F0RI=1T079:PRINT#1,"="; :NEXT:PRINT#1 

1440 CLOSE1 

1450 FORI=lTOX 

1460 FORY=lT07 

1470 IFS$( Y)=LEFT$(D$(I,Y) ,LEN(S$( Y) ) ) THENZ=Z+1 :GOTO1480 

1480 NEXTY 

1490 IFZ=7THENGOSUB1550 
1500 Z=0:NEXTI 

1510 PRINT:PRINT"END OF DATA!":PRINT 

1520 PRINT"RETURN FOR MORE": PRINT 

1530 INPUTX$ 

1540 RETURN 

1550 IFO$="S"THEN1730 

1560 IFD$="M"THEN1670 

1570 OPENl,4 

1580 PRINT#1,D$(I,1);SPC(14-LEN(D$(I,1))); 

1590 PRINT* 1 ,D$ ( 1,2) ; SPC( 14-LEN( D$ ( 1,2))) ; 

1600 PRINT* 1,D$( 1,3) ; SPC( 16-LEN( D$ ( 1 ,3 ) ) ) ; 

1610 PRINT* 1,D$( 1,4) ;SPC(15-LEN(D$(I,4) ) ) ; 

1620 PRINT#1,D$(I,5) ; SPC( 8-LEN( D$ ( I ,5 ) ) ) ; 

1630 PRINT* 1, D$( 1,6 );SPC(12-LEN(D$( 1,6) )) ; 

1640 PRINT#1,D$(I,7) 

1650 PRINT* l:CLOSEl 

1660 RETURN 

1670 OPEN2,4 

1680 PRINT#2 

1690 FORJ=lT05:PRINT#2,D$(I,J) :NEXT 

1700 PRINT* 2: PRINT* 2: PRINT* 2 
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1710 CLOSE2 

17 20 RETURN 

1730 GOSUB2030:GOSUB2110 

1740 PRINT: PRINT"MORE (Y)?" 

1750 GETX$:IFX$<>"Y"THEN1750 

1760 RETURN 

1770 REM *********** 

1780 REM DELETE DATA 

1790 REM *********** 

1800 IFX>0THEN1820 

1810 GOSUB2 230: RETURN 

1820 GOSUB2030 

1830 INPUT"NAME 1 : ";Nl$ 

1840 INPUT"NAME 2 : ";N2$ 

18 50 FORI=lTOX 

1860 IFDS (1,1) =N1$ANDD$ (1,2) =N2$THEN1900 

1870 NEXTI 

1880 PRINT"NAME NOT FOUND! ": PRINT 

1890 PRINT" RETURN FOR MORE" : INPUTXS : RETURN 

1900 GOSUB2030:GOSUB2110 

1910 PRINT:PRINT"DELETE RECORD (Y/N)?" 

1920 GETX$:IFX$O"Y"ANDX$O"N"THEN1920 

1930 IFX$="N"THENRETURN 

1940 FORY=ITOX-l 

1950 FORJ=lT06 

1960 D$(Y,J)=D$(Y+1,J) 

1970 NEXTJ,Y 

1980 FORJ=lT06:D$(X,J)="":NEXTJ 

1990 X=X-1 

2000 PRINT"RECORD IS DELETEDl " 

2010 PRINT" RETURN FOR MORE" 

2020 INPUTXS: RETURN 

2030 REM *************** 

2040 REM PROGRAM HEADING 

2050 REM *************** 

2060 PRINTCHR$(147) ; 

2070 PRINTTAB(8) ;»=======================" 

2080 PRINTTAB(8) ;"M AILING LIST 
2090 PRINTTAB( 8 ) ; »=======================" 

2100 RETURN 
2110 REM ************ 
2120 REM PRINT RECORD 
2130 REM ************ 
2140 PRINT" NAME 1 
2150 PRINT"NAME 2 
2160 PRINT"STREET 
2170 PRINT"CITY, STATE 
2180 PRINT"ZIP CODE 



2190 PRINT"TELEPHONE 

2200 PRINT"NOTES 

2220 RETURN 

2230 REM ******** 

2240 REM NO DATA! 

2250 REM ******** 

2260 GOSUB2030 



';D$(I,1) 

' ; D$ ( 1 , 2 ) 
';D$(I,3) 
' ; D? ( 1 , 4 ) 
';D$(I,5) 
1 ; DS ( 1 , 6 ) 

' ; D$ ( 1 , 7 ) 
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2270 PRINfNO DATA IN MEMORY !": PRINT 
2280 PRINT"RETURN FOR MOPE" 
2290 INPUTXS: RETURN 



1.4.11 Uses for Sequential Storage 

The great advantage of sequential storage as compared to 
relative and direct access storage, is that a lot of. data 
can be written to the diskette quickly. Data of varying 
lengths can be stored together, without requiring the recr 
ords to be of a definite length. It makes sense to make use 
of this advantage, where the the file must not be 
permanently divided into parts. Examples are: 

* Bookkeeping files 

In a bookkeeping journal, all entries are recorded 
continuously. Changes should not be made to these 
entries. Instead, adjustment entries should be made 
to effect changes. 

* Analysis files 

you analyze a direct access file, looking for, say, all 
customers with whom you have done more than 2000 
dollars of business in a certain zip code, and write 
the found records in a sequential file for later 
access. 

Naturally, sequential files also offer a substitute for 
direct access files, as discussed in this chapter, if the 
user does not possess further programming knowledge. We must 
certainly recommend that you work through the other methods 
of data storage, which offer other advantages. 
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1.5 Relative Data Storage 

Relative data storage and its programming is not described 
in the VIC-1541 user's manual. The reason may lie in the 
fact that the Commodore 64 and the VIC-20 have no commands 
to process relative files using BASIC 2.0. Therefore, it is 
in principle not possible to use relative data storage on 
the Commodore 64 and VIC-20 - but only in principle. We have 
developed a few tricks that work within the limitations of 
BASIC 2.0 and permit the Commodore 64 and also the VIC-20 to 
use relative data storage. The examples may seem to be 
somewhat complicated at first. For example, information 
about the record lengths will be transmitted to the disk 
using CHRS(x) codes. But they provide for a very easy method 
of data storage. 



1.5.1 The Principle 

When using relative record data processing, the data records 
are numbered. It is assumed that all records in a relative 
file have the same length and that the record number of 
every record is known or can be calculated. To find a 
record, it is not necessary to search through the entire 
file. Only the record number need be given to access the 
record. Using the record number, the DOS can find where the 
record is "relative" to the beginning of the file on the 
diskette and can read it directly. Therefore, you don't have 
to read an entire file into the computer, only the desired 
records. 

Managing a relative file follows this pattern: 

Create a relative file: 

1. The file is opened. With this the length of a record 
is established. 

2. The last record is marked. 

3. The file is closed. 

Writing a record: 

1. The file is opened. 

2. The file is positioned on the record to be written. 

3. The record is written. 

4. The file is closed. 

Reading a record: 

1. The file is opened. 

2. The file is positioned over the record to be read. 

3. The record is read. 

4. The file is closed. 
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This is only an outline. In the following sections these 
processes will be explained in detail. 



1.5.2 The Advantage over Sequential Storage 

The greatest advantages of relative storage are: 

* faster access to individual records 

* does not require much of the computer's memory 

It has already been mentioned that the sequential file roust 
reside completely in the computer's memory for processing. 
Using sequential techniques, it may be necessary to search 
the entire file to find a given record. The record must be 
read and compared during the search process. But if a 
sequential file cannot be entirely loaded into memory, this 
method of search is impossible. 

Using relative data files, the processing is much simpler. 
By using the record number, a desired record can be read 
individually. The file size is not limited to the computer's 
memory. So, for example, a program that uses all 3.5K bytes 
of a standard VIC-20 can manage a file with up to 163 
Kbytes! 

The advantages of relative over sequential file management 
are large enough that many of you, once acquainted with the 
techniques will prefer to use them. 



1.5.3 Opening a Relative File 

Relative files are also opened with the OPEN command. The 
command differs only slightly from that for sequential 
files. Take a look at the format of the OPEN command: 

OPEN lfn,da, channel, "filename, L,"+CHR$( record length) 

The first four parameters are identical to those for 
sequential files. They are logical file number, device 
address (normally 8), channel (2-14), and name of the file. 
Next follows an L which informs the DOS that a relative file 
should be opened, whose record length follows. This record 
length is transmitted with a CHR$ code. The length is 
between one and 254. Thus each record of a relative file is 
limited to a maximum of 254 characters. 

If the record length is smaller than 88, the record can be 
read with an INPUT* statement. For this, it is necessary 
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that the PRINT* statement transfers the record with a 
trailing RETURN. A PRINT# statement sends a RETURN when it 
is not ended with a semicolon. This RETURN is now a part of 
the record, when you want to read records with INPUTt, tne 
record length must be increased by one. 

A file composed of 80-character records, to be read by the 
INPUT* statement would be opened as follows: 



OPEN 1,8,2,"FILE.REL,L,"+CHRS(81) 



Here a relative file with the name "FILE.REL" is opened 
using channel 2. The record length should total 81 
characters. Records comprised of 80 characters should be 
sent with a PRINT* statement, with no trailing semicolon. 

It is important to note that only one relative file can be 
opened at a time. If you want to work with two relative 
files, you must always close the first before opening the 
second. One sequential file may be opened in addition to one 
relative file. 

when a relative file is opened for the first time, the DOS 
creates as many "null" or unused records that can fit in a 
single 254 byte block. It creates these "null" records Dy 
writing a record with a CHR$(255) at the beginning of each 
record. This is called formatting a relative file. 

If you want to expand a relative file beyond the initial 
number of records that the DOS formatted, then you can 
reference the last record number that you want to write (by 
positioning to that record number) and the DOS automatically 
formats the records between the current end of file and the 
new last record number by writing records containing 
CHR$(255). Formatiing takes time to complete. 

If you try to read a record whose number greater than that 
of the last record, the DOS returns the error RECORD NOT 
PRESENT. However, if you write a record which is greater 
than the highest current record, all records less than the 
new record number are also written with CHR$(255). 
Subsequently accessing these record does not result in an 
error. 

If you want to avoid long delays as relative records are 
formatted (as the file is expanded), then you should 
reference the last record number immediately after opening 
the file. The formatting of the null records takes place at 
that time instead of at a more inconvenient time. 

To position the DOS for a specific relative record you muft 
send a position command over the command channel (15), as 
shown here: 

PRI NT# 1 f n , " P" +CHR$ ( channe 1 ) +CHR$ ( low ) +CHR$ ( h ig» ) +CHR$ ( by te ) 
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If you are positioning to a record which is beyond the 
current end of file, the DOS presents the message RECORD 
NOT PRESENT appears to the disk error channel. If this 
record is to be written, then you can ignore the message. 
The following PRINT* statement is carried out in spite of 
the error message. 

The parameters low and high in the P command designate the 
record number. The maximum value that can be given with one 
byte is 255, but a relative file contains up to 65535 rec- 
ords. Therefore, the record number must be transmitted in 
two bytes. These two bytes are calculated with the following 
formula: 

HB=INT(RN/256) 
LB=RN-HB*256 

HB = High Byte (parameter high) 
LB = Low Byte (parameter low) 
RN = Record Number 

The last parameter (byte) serves to position to a specific 
location within the given record. An example: 

PRINT#2,"P"+CHR$(2)+CHR$(10)+CHR$(1)+CHRS(5) 

Here the file is positioned to the fifth byte of the 266th 
record. This 266 is coded as a low byte of 10 and a high 
byte of 1 (high byte * 256 + low byte = record number). 

To read or write a complete record, the file is positioned 
to the first byte of the record. If the last parameter is 
not given, the trailing RETURN (CHR$(13)) is taken as the 
character location. 

The corresponding BASIC program to establish a file of 100 
80-character records looks like this: 

100 RN=100 

110 HB=INT(RN/256) 

120 LB=RN-HB*256 

130 OPEN1,8,2,"FILE.REL,L,"+CHR$(80) 

140 OPEN2,8,15 

150 PRINT* 2 , " P" +CHR$ ( 2 ) +CHR$ ( LB) +CHR$ ( HB) +CHR$ ( 1 ) 

160 PRINT* 1,CHR$( 255) 

170 CLOSE l:CLOSE 15 

Freeing 100 records takes some time. The creation of this 
file takes about ten minutes. Notice that of the 80 char- 
acters in a record, only 79 can be used to hold data, 
because transferring data with a PRINT* command adds a 
trailing RETURN. 
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1.5.4 Preparing Data for Relative Storage 

As already mentioned, you cannot change the record length of 
a relative file. If a record consists of several fields, 
these fields must be combined. It is important that these 
fields always be in the same position so that they can be 
separated later. Let's work through a problem: 

We want to manage an inventory using relative storage 
techniques. To that end, the following fields are necessary: 

PART NUMBER 4 CHARACTERS 

DESCRIPTION 15 CHARACTERS 

QUANTITY 5 CHARACTERS 

COST 6 CHARACTERS 

PRICE 6 CHARACTERS 

Record length 36 bytes 



The inventory contains approximately 200 items with a record 
length of 36 bytes. This inventory file can now be created: 

100 RN=200:REM NUMBER OF INVENTORY ITEMS 

110 RL=36 :REM RECORD LENGTH 

120 OPEN 1,8,2,"INVEN,L,"+CHR$(36) 

130 OPEN 2,8,15 

140 PRINT*2 , " P"+CHR$ ( 2 ) +CHR$ ( 200 ) +CHR$ ( ) +CHR$ ( 1 ) 

150 PRINT#1,CHR$(255) 

160 CLOSE 1: CLOSE 2 

Now the file is created and all records are written. Let's 
suppose that the inventory is present as a sequential file. 
It consists of 200 records, the fields of which are ordered 
one after the other. These fields must be written to the 
relative file. This is not simple, however, because many of 
the descriptions are not the full fifteen characters in 
length, for example. The structure of the relative file 
looks as follows: 

111111111122222222223333 333 
Position : 123456789012345678901234567890123456 

Field : PN$-DE$ 0$ C$ P$ 

Contents : 1 1/8 in. sheet 1344 11.40 20.30 

2 No. 10 screw 1231 4.00 7.00 

3 Valve A3A4 1243 11.45 16.40 



200 1/2 in. tubing 2321 3.35 4.10 

The fields will be read from the sequential file into the 
following variables: 
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Part number PN$ 

Description DE$ 

Quantity 0$ 

Cost C$ 

Price P$ 

The following command chains these fields together: 

RC$ = PN$ + DE$ + 0$ + C$ + P$ 

The record variable RC$ does not have the desired structure. 
The reason is that the quantity immediately follows the 
description. Because the quantity must begin at position 20 
and the description is not always fifteen characters, we 
have a problem. In order to read the records from the rela- 
tive file, the structure must be observed. Therefore, all 
fields that are shorter than the planned length must be 
padded with blanks. Taking this into account, the chaining 
goes like this: 

BL$=" 

RC$=PN$+LEFT$(BL$,4-LEN(PN$) ) 
RC$ = RCS+DES + LEFTS(BLS,15-LEN(DES)> 
RC$=RC$+0$+LEFT$(BL$,5-LEN(Q$) ) 
RC$=RC$+C$+LEFT$(BL$,6-LEN(C$) ) 
RC$=RC$+P$+LEFT$(BL$,6-LEN(P$) ) 

This concatenation looks more complicated than it really is. 
Each field must be filled with enough blanks to bring it to 
its appropriate length. The blanks are added to the 
individual fields from the string BL$, defined at the 
beginning. T 

Let's go through an example: 

Suppose the first part number is 8. The length of this 
string, LEN(PN$), is then one. The maximum length of this 
field (4) minus the actual length (1) is 3. The string PN$ 
must therefore be padded with three blanks, LEFT$(BL$,3). 

Each record of the old sequential file must be prepared in 
this manner before it can be transferred to the relative 
file. 

Naturally, the above is true for all input values to be used 
in a relative file. Therefore, you must always remember to 
use a routine to fill each field with blanks to its full 
length when working with relative data processing. 
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1.5.5 Transferring Data 

In principle, transferring data to and from a relative file 
does not differ from sequential storage. Records are written 
with PRINT* and read with INPUT* or GET*. The only 
difference is that before a record is be written or read, 
the file must be positioned to that record. This is accom- 
plished with the P command. This example program illustrates 
what we have discussed: 

100 BL$=" " 

105 OPEN 1,8,2,"TEST.REL,L,"+CHR$(41) 

110 OPEN 2,8,15 

120 PRINT* 2 , " P"+CHR$ ( 2 ) +CHR$ (100) +CHR$ ( ) +CHR$ ( 1 ) 

130 PRINT#1,CHR$(255) 

140 PRINT CHR$(147) 

150 PRINT" INPUT RECORD:" 

160 PRINT" " 

170 INPUT"RECORD NUMBER (1-100) : " ; RN 

180 IF RN<1 OR RN>100 THEN PRINTCHR$ ( 145 ) ; :GOTO160 

190 INPUT"FIELD 1 (MAX. 10 CHAR.) : ";F1$ 

200 IF LEN(F1$)>10 THEN PRINTCHR$ ( 145 ) ; :GOTO190 

210 INPUT"FIELD 2 (MAX. 5 CHAR.) : ";F2$ 

220 IF LEN(F2$)>5 THEN PRINTCHRS ( 145 ) ; :GOTO210 

230 INPUT"FIELD 3 (MAX. 10 CHAR.) : ";F3$ 

240 IF LEN(F3S)>10 THEN PRINTCHRS ( 145 ) ; :GOTO230 

250 INPUT"FIELD 4 (MAX. 15 CHAR.) : ";F4$ 

260 IF LEN(F4$)>15 THEN PRINTCHR$ ( 145 ) ; :GOTO250 

270 PRINT"CORRECT (Y/N)?" 

280 GETX$:IF X$<>"Y" AND X$<>"N" THEN 280 

290 IF X$="N" THEN 140 

300 RC$=F1$+LEFT$(BL$,10-LEN(F1$) ) 

3 10 RC$ = RC$+F2$+LEFT$ ( BL$ , 5-LEN( F2$ ) ) 

320 RC$=RC$+F3$+LEFT$(BL$,10-LEN(F3$) ) 

330 RC$=RC$+F4$+LEFT$(BL$,15-LEN(F4$) ) 

340 PRINT* 2 , ' P ,- +CHR$ ( 2 ) +CHR$ ( RN ) +CHR$ ( ) +CHR$ ( 1 ) 

350 PRINT#1,RC$ 

360 PRINT"MORE INPUT (Y/N)?" 

370 GETX$:IF X$<>"Y" AND X$<>"N" THEN 370 

380 IF X$="Y" THEN 140 

390 CLOSE 1: CLOSE 2: END 

The following line-oriented documentation explains the 
operation of the program: 

100 A blank-character string with 15 blanks is 

defined . 
105 The relative file is opened with a length of 15. 
110 The command channel 15 is opened. 
120 To initialize the relative file, the head is 

positioned over the first byte of the last (100th) 

record . 
130 The last record is freed and the initialization 

begun. 
140 The screen is erased. 



52 



Anatomy of the 1541 Disk Drive 

150-260 The record no. and fields 1-4 are entered and 

checked for correct length. 
270-290 The entered data can be corrected. 
300-330 The record is prepared. 
340 The head is positioned over the first byte of the 

record. 
350 The record is written to the disk. 

360-380 New data can be entered. 
390 The program ends. 

Now write some records with this program, but don't forget 
to save in case you need it later. 

Certainly, it also necessary to read and change existing 
records. To do this, the relative file is opened, the file 
is positioned to the appropriate record, and the record is 
read. This record must then be divided into its fields. 
Let's read a record that was recorded with the previous 
program. The following routine reads the record: 

100 OPEN 1,8,2,"TEST.REL,L,"+CHR$(41) 

110 OPEN 2,8,15 

115 PRINT CHR$(147) 

120 INPUT" RECORD NUMBER : " ; RN 

130 PRI NT# 2 , " P" +CHR$ ( 2 ) +CHR$ ( RN ) +CHR$ ( ) +CHR$ ( 1 ) 

140 INPUT#1,RC$ 

160 IF ASC(RC$)<>255 THEN PRINT"RECORD NOT FOUND!": 

GOTO250 
170 PRINT RC$ 
250 CLOSE 1: CLOSE 2 

This routine reads a specified record. If this record has 
never been written, it is recognized by the value 255 with 
which every record was marked at the establishment of the 
file. 

A record that is found is displayed. You can see that the 
four fields are in the same positions. If you want to divide 
the record into its individual parts, you must use the 
function MID$. For example, in order to extract field 1 of 
the record, give the following statements in the direct mode 
after the record is found and read: 

F1$=MID$(RC$,1,10) 
PRINT Fl$ 

Now the variable Fl$ contains the first field, as written by 
the first program. The division of records into individual 
fields is accomplished by building on the previous program. 
Add or change the following lines: 

170 F1$=MID$(RC$,1,10) 
180 F2$=MID$(RC$,11,5) 
190 F3$ = MID$(RC$,16,10) 
200 F4$=MID$(RC$,26,15) 
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210 PRINT"FIELD 1 

220 PRINTTIELD 2 

230 PRINT"FIELD 3 

240 PRINT-FIELD 4 



";F1$ 
";F2$ 

";F3S 
";F4$ 

250 PRINT"MORE (Y/N)?" 

260 GETX$:IF X$<>"Y" AND X$<>"N" THEN 260 

270 IF XS="Y" THEN 115 

280 CLOSE 1: CLOSE 2 

Here the record is separated into the individual fields and 
the fields are displayed. It is important for the MID$ 
function that the exact positions of the fields within the 
record be maintained. The first parameter within the paren- 
theses is the string variable containing the record. The 
second parameter is the position at which the number of 
characters represented by the parameter will be taken out. 
Further work may done with the selected fields inside the 
program. 

So far, we have read the records with the INPUT! statement. 
If the record is longer than 88 characters, it can no longer 
be read with the INPUT* statement. The way to get around the 
limited INPUT# statement is with the GET* statement. The 
bytes of a record are read one at a time with this command 
and assembled into a single string. Suppose you have a 
relative file with 128-character records. Now you want to 
read the tenth record of this file and place it in the 
variable RC$. The example of the following routine 
illustrates reading this with GET#s 

100 OPEN 1,8,2,"TEST.GET,L,"+CHR$(128) 

110 OPEN 2,8,15 

120 PRINT* 2 , " P"+CHR$ ( 2 ) +CHRS ( 10 ) +CHR$ ( ) +CHR$ ( 1 ) 

130 RC$="" 

140 FOR 1=1 TO 128 

150 GET#1,X$ 

160 RC$=RC$+X$ 

170 NEXT I 



After running this routine, the record is contained in the 
variable RC$. If this record had been written with a PRINT* 
statement without a trailing semicolon, the last character 
in the string will be a RETURN. To ignore this RETURN, allow 
the loop in line 140 to run only to 127. The last character 
of the record RETURN is not read. 

As already mentioned, the last parameter of the P command 
specifies at which character the transfer of data should 
begin. If, for instance, in the 127-character record of the 
previous example, you want to read positions 40-60 into a 
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field, the head must be positioned over the 40th character 
and the next 21 bytes read. The following routine clarifies 
this: 

100 OPEN l,8.2."TEST.GET f L."+CHR$(128) 

110 OPEN 2,8,15 

120 PRINT# 2 , " P"+CHP$ ( 2 ) +CHR$ ( 10 ) +CHR$ ( ) +CHR$ ( 40 ) 

130 F$="" 

140 FOR 1=1 TO 21 

150 GET#1,X$ 

160 F$=F$+X$ 

170 NEXT I 



In line 120, the head is positioned over the the 40th byte 
of the tenth record in line 120 and the loop in lines 140- 
170 reads the following 21 bytes (bytes 40-60 of the record) 
into F$. 

You see then that the entire record need not be read if you 
only want to work with part of it. 



1.5.6 Closing a Relative File 

There is no difference between closing a relative file and 
sequential file. Because the command channel must always be 
open to send the position command when working with relative 
storage, it must also be closed. 



1.5.7 Searching Records with the Binary Method 

Normally each record is accessed by record number. But what 
if you want to search for a specific name in a relative file 
and the record number is not known. It is possible to read 
each record and compare each for the desired name. But this 
is very time consuming if the file has many records. 

If the file is kept in name order, the records can be 
searched using an alternative method. This method is called 
a binary search. In order to use a binary search, the 
relative file must be arranged in sorted order. Using the 
above example, relative record 1 must contain a name with 
the lowest collating sequence while the last relative record 
must contain a name with the highest collating sequence. 
Thus the name AARON might be contained in relative record 1 
and ZYPHER might be contained in the last relative record of 
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the file and all other names would be ordered throughout. 

when records are added to the file, then the records must 
be reordered. Similarly if a name is changed, then the 
records must be reordered. 

The binary search can be explained using a simple example. 
When you want to find a name in the telephone book, you 
don't search through it sequentially. You open the book in 
the middle and compare the first letter of the desired name 
with the first letter of names on the page. If the desired 
name comes before these, you turn halfway into the first 
section of the book, and so on. You go through it 
systematically. 

The binary search is not a sequential search. It identifies 
a record halfway through the remaining number of records. 
The following example will clarify this: 

There exists the following relative file, sorted in 
ascending order: 



Record number 


Contents 


1 


1985 


2 


1999 


3 


2005 


4 


2230 


5 


2465 


6 


2897 


7 


3490 


8 


3539 


9 


4123 


10 


5000 


11 


5210 


12 


6450 


13 


6500 


14 


6550 


15 


6999 



Out of these fifteen records we will search for a contents 
of 3490. It is not known which record it is stored in. 

We must first know how many records are in the file. In this 
case, there are fifteen. We divide this by two. The middle 
of the file is record eight with the contents 3539. We 
determine if the contents of this record equal to the target 
value, and if not, whether it is larger or smaller. In this 
case, it (3539) is larger. This means the record we are 
looking for is in the first half of the file. So we divide 
eight by two and examine the contents of record four, 2230. 
Since 2230 is less than 3490, it lies between four and 
eight. We again divide by two and add this to record 4 which 
and results in record 6 whose contents is 2897. 2897 is less 
than 3490, so our target lies between records six and eight. 
Record seven is indeed the record we are looking for. 
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The principle of the binary search is to determine by the 
result of each comparison whether to search upwards or 
downwards until the search data is found. The maximum number 
of comparisons can be found using the following formula: 

S=INT(L0G(N)/L0G(2)+1) 

S is the number of comparisons (searches) and N is the 
number of records in the file. In a sorted relative data 
file with 1000 records, no more than ten comparisons will be 
necessary to find the desired record! 

Let's create a relative data file with fifteen records to 
test the binary search: 

100 OPEN1 , 8 , 2 , "BINARY . REL , L , " +CHR$ ( 5 ) 

110 F0RI=1T015 

120 READ RCS 

130 PRINT#1,RC$ 

140 NEXT I 

150 CLOSE l:CLOSE 2:END 

160 DATA 1985,1999,2005,2230,2465,2897,3490,3539 

170 DATA 4123,5000,5210,6450,6500,6550,6999 

This program puts the fifteen records in a file called 
BINARY.REL using the values given in lines 160-170. The 
position command is not necessary because the data will be 
written straight through from first to last record. After 
opening the file the pointer points to the first record. 
This file is designed to be searched with the binary method. 
The following program is based on the logic of the binary 
search: 

100 0PEN1,8,2,"BINARY.REL,L,"+CHR$(5) 

110 OPEN2,8,15 

120 PRINTCHR$(147) 

140 N=15: REM NUMBER OF RECORDS 

150 I=LOG(N)/LOG(2) 

160 IF I-INT(I)<>0 THEN I=INT(I)+1 

170 M=I-1 

180 I=2 A I 

190 X=I/2 

210 INPUT-RECORD TO FIND (* TO END): ";SR$ 

220 IF SR$="*" THEN 320 

230 IF M<0 THEN PRINT"RECORD NOT FOUND" :GOTO140 

240 M=M-1 

250 PRINT# 2 , " P"+CHR$ ( 2 ) +CHR$ ( X ) +CHR$ ( ) +CHR$ ( 1 ) 

260 INPUT#1,RC$ 

270 IF SR$=RC$ THEN 340 

280 IF SR$<PC$ THEN X=X-2*M:GOTO230 

290 X=X+2«M 

300 IF X>I THEN PRINT"END OF FILE EXCEEDED!" 

310 GOTO 230 

3 20 CLOSE 1: CLOSE 2 
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330 END 

340 PRINT"RECORD FOUND!" 

350 PRINT"CONTENTS : " ; RCS 

360 GOTO 140 

Program Documentation: 

100 The relative file "BINARY. REL" is opened. 

110 The command channel is opened. 

120 The screen is erased. 

140 The number of records is assigned to the variable 
N. 

150-190 If the maximum number of records does not 

represent a power of two, the next higher power 
of two is formed. The file will be expanded, but 
no records are lost. The exponent of this power of 
two is used as the index. X is the value of 1/2. 
1/2 indicates the exact middle of the (expanded) 
file. After that, the variable M receives the 
value of 1-1. 

210-220 The record to be found is read. To end the 
program, enter a ■*'. 

230 If M<0, the record was not found. 

240 M is decremented by one. The next Mth power 
represents half of the rest of the file. 

250-260 The file is positioned over the record containing 
in the variable X. 

270 If the target record is found, the search is 
ended and the record displayed. 

280-310 It is determined if the target record is larger 
or smaller than the record just read. The middle 
of the upper or lower half (as appropriate) is 
stored in the variable X. 

320-330 The file is closed and the program is ended. 

340-360 The found record is displayed. 

This binary search, coded in BASIC, is implemented 
universally. Only the number of records and the appropriate 
record to be searched for need be changed. You can use this 
routine for finding records in your sorted relative data 
files. 



1.5.8 Searching Records with a Separate Index File 

If you work with individual records frequently and need 
quick access with alphanumeric keys that don't correspond to 
the logical record number, and your file is not sorted, we 
recommend another method. 

Create an index file for each desired key field, in which 
each record is composed of 
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- an index key 

- the corresponding record number 

This entire index file is to be loaded into the computer's 
memory. An example: 

You have constructed your name and address manager as a 
relative file consisting of 

- First name 

- Last name 

- Street 

- City, State 
-Zip code 

- Telephone number 

You want to be able to search the file based on the last 
name. So you create an additional sequential file that 
contains the desired key (in this case the last name) and 
the record number of the corresponding record in the 
relative file. 

The index file is read completely into the computer so the 
search can be accomplished as quickly as possible. If you 
want to access a record that has the last name HARRIS, then 
you search through the appropriate index in memory and when 
found, read the corresponding relative record by using the 
record number also contained in the index. 

Here is an example: 

We assume that a data file and an index file exist for the 
name s : 

Data file: Index file: 



Last name First name more fields Index Record No. 

(last name) LB HB 

Smith John Smith 01 00 

Harris Sam Harris 02 00 

Hanson Carl Hanson 03 00 

Johnson Mark Johnson 04 00 



Green Simon Green 99 00 



The file contains 99 records. Before the program can be 
used, the index file must be read in. This can be a 
sequential file, which can be read into a memory table 
reserved with DIM IT$(99). The first twenty characters of 
each index table position comprise the last name. The next 
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to the last byte (no. 21) is the low byte and the last byte 
(no. 22) is the high byte of the record number, with these 
conditions, a desired record can be found with the following 
routine: 



100 INPUT "LAST NAME" ;N$ 

110 FOR 1=1 TO 99 

120 IF LEFT$(IT$(I) ,20)=N$ THEN 150 

130 NEXT I 

140 PRINT "NAME NOT FOUND!": END 

150 PRINT "RECORD FOUND!" 

160 OPENl,8,2 f "ADDPESS,L,"+CHR$(81) 

170 OPEN 2,8,15 

180 PRINT* 2 , " P"->-CHR$ ( 2 ) +MID$ ( ITS ( I ) , 21 , 1 ) +CHR$ ( ) 

+CHR$(1) 
190 INPUT#1,RC$ 



The loop in lines 110-130 goes through the index table 
sequentially, searching for the target name contained in the 
twenty leftmost characters. If the name is not found, an 
appropriate message is given (line 140), before the program 
is ended. 

If, in line 120, the target name matches the index entry, 
the program branches to line 150. After giving the message, 
the address file is opened. After opening the command 
channel, the position command is sent to the disk. Because 
the next to the last byte of the index entry contains the 
low byte of the record number, it must be extracted using 
the MID$ function. The high byte is known to be zero since 
there are fewer than 255 record. 

Finally the relative record is read in line 190. 

The access of index files is an equally fast and 
extraordinarily flexible form of data organization. One can 
theoretically have as many index files as desired. Above 
all, you must take note of two important restrictions: 

1. Changes in the main data file which affect the key 
fields must also be made to the corresponding index 
file. With several index files this can become very 
time-consuming. 

2. The number and size of the index files that are kept in 
the computer's memory for fast access are limited by 
the availability of memory. 
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1.5.9 Changing Records 

The logical process for changing a record is this: 

1. Read the record 

2. Split the record into its fields 

3. Change the appropriate field 

4. Rebuild the record (combine fields) 

5. Rewrite the record 

In section 1.5.5 we wrote some records in the file 
"TEST.REL". This file had the following properties: 

Record length 41 bytes 

Number of records 100 

Number of fields 4 

Length, position field 1 : 10, 1-10 

field 2 : 5, 11-15 

, " field 3 : 10, 16-25 

" , " field 4 : 15, 26-40 

Trailing RETURN in position 41 

A file description such as the one above should be made for 
each of your files. This is very important if other programs 
are to use these data. The file description defines the 
order and length of the fields of the file. 

In this file, we allow for the contents of the records to be 
changed. The following program allows changes: 

100 REM =================== 

110 REM PREPARATION 

120 REM =================== 

130 BLS=" 

140 OPEN 1,8,2, "TEST. REL,L,"+CHBS(41) 

150 OPEN 2,8,15 

160 REM =================== 

170 REM READ RECORD 

180 REM =================== 

190 PRINT CHRS(147) 

200 INPUT"RECORD NUMBER (1-100): " ; RN 

205 IF RN<1 OR RN>100 THEN PRINTCHRS ( 145 ) ; :GOTO200 

210 PRINT" " 

220 PRINT# 2 , "P"+CHRS ( 2 ) +CHRS ( RN) +CHRS ( ) +CHRS ( 1 ) 

230 INPUT* 1,RCS 

240 IF ASC(RCS)<>255 THEN 270 

250 PRINT "RECORD NOT WRITTEN" 

260 GOTO 630 

270 REM ====================== 

280 REM PREPARE RECORD 

290 REM ====================== 

300 FS(1)=MIDS(RCS,1,10) 

310 FS(2)=MIDS(RCS,11,5) 

320 FS(3)=MID$(RCS,16,10) 

330 FS(4)=MIDS(RCS,26,15) 
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340 REM ====================== 

350 REM DISPLAY FIELDS 

360 REM ====================== 

370 PRINT CHRS(147) 

380 FOR 1=1 TO 4 

390 PRINT "FIELD" ? I ; " : ";FS(D 

400 NEXT I 

410 PRINT" " 

4 20 REM ====================== 

430 REM CHANGE FIELDS 

440 REM ====================== 

450 PRINT"CHANGE WHICH FIELD (1-4)?" 

460 GETXS:IFXS<"1" OR X$>"4" THEN 460 

470 INPUT"NEW CONTENTS : " ; F$ ( VAL( XS ) ) 

480 PRINT"RECORD IS CHANGED" 

490 PRINT"MORE CHANGES IN THIS RECORD (Y/N)?" 

500 GETX$:IF X$<>"Y"' AND XS<>"N" THEN 500 

510 IF X$="Y" THEN 340 

5 20 REM ==================== 

530 REM CHAIN FIELDS 

540 REM ==================== 

550 RC$=F$(1)+LEFT$(BL$,10-LEN(F$(1) ) ) 

560 RC$=RC$+F$(2)+LEFT$(BL$,5-LEN(F$(2) ) ) 

570 RC$=RC$+F$(3)+LEFT$(BL$,10-LEN(F$(3)) ) 

580 RC$=RC$+F$(4)+LEFT$(BL$,15-LEN(F$(4) ) ) 

590 REM ========================= 

600 REM WRITE RECORD BACK 

610 REM ========================= 

620 PRINT#1,RC$ 

630 REM ==================== 

640 REM END PROGRAM? 

650 REM ==================== 

660 PRINT"MORE CHANGES TO FILE (Y/N)?" 

670 GETX$:IF X$<>"Y" AND XSO"N" THEN 670 

680 IF X$="Y" THEN 160 

690 CLOSE l:CLOSE 2:END 

After this program is RUN you can change any desired record. 
This record must have been written with the program in 
section 1.5.5. 

This editing program does not check the new field data for 
correct length. 

The important commands in this program have already been 
explained in the corresponding sections. 



1.5.10 Expanding a Relative File 

Every relative file has a user-determined number of records 
that ranges from 1 to 65538. This number is the record with 
the highest record number and is written to the file with a 
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value of CHRS(255). Writing this last record also formats 
all records in the file that precede this record number with 
CHBS(255). 

You can expand the size of a relative file at a later time. 
For example, consider a relative file that is initially 
created with three records. After the file is OPENed, you 
position the file at record number 3 and write the record 
with CHR$(255). Here's an example of how you might do this: 

10 OPEN 1,8,2,"RELFILE,L,"+CHRS(50) 

20 OPEN 15,8,15 

30 PRINT* 15 , "P"+CHR$ ( 2 ) +CHR$ ( 3 ) +CHR$ ( ) +CHR$ ( 1 ) 

40 PRINT#1,CHR$(255) 

When statement 40 is performed, not only is record 3 
written, but records 1 and 2 are also formatted by the DOS. 
Subsequently, if you position and write a 90th record, the 
DOS formats records 4 through 89 (see lines 150 and 160 
below). Each time the file is expanded, the DOS formats 
records between the current hign record numDer and the new 
high record number. 



150 PRINT* 15, "P"+ CHRS(2)+CHRS(90)+CHRS(0)+CHR$(1) 
160 PRINT#1,CHR$(255) 



500 PRINT* 15 , "P"+CHR$ ( 2 ) +CHRS ( 175 ) +CHRS ( ) +CHRS ( 1 ) 
510 PRINT#1,CHR$(255) 



An existing relative file can be expanded at any time, 
provided there is sufficient room on the disk. To do so, the 
new last record is written with CHRS(255). At the same time, 
all records between the old and new end of file are also 
formatted. 

When writing a record to a relative file whose record number 
is higher than the current high record number, a DOS error 
is not returned. If there is room on the diskette for the 
new records (current high record number through the new high 
record number) the file is simply expanded. If there is a 
lack of space on the diskette for the new records, the DOS 
error FILE TOO LARGE is returned. When reading a record from 
a relative file whose record number is higher than the 
current high record number, the DOS error RECORD NOT PRESENT 
is returned to the error channel. 
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1.5.11 Home Accounting with Relative Data Storage 

A complete example of problem solving using relative files 
offers you a good insight into the organization of relative 
file processing. It can be used by most readers of this 
book. Few examples of relative file usage have been 
explained elsewhere, so here is such a program. 

In this application, individual accounts are numbered. This 
account number is used as a key to the corresponding 
records. 

This provides that each account contain a clear text 
description. The first field of each record is this account 
name. Twenty characters are allowed for the name. 

Since information is needed for each month, twelve fields 
are necessary for each record. These summary fields are each 
ten characters long. The account summaries are stored as 
strings which are converted to numbers with the help of the 
VAL function. The record consists of 141 characters (twenty 
for the name, 12*10 for the month summaries and one for 
RETURN). 

The layout of the records follows: 

Field Length Position 



20 


1-20 


10 


21-30 


10 


31-40 



Account name 
January summary 
February summary 



November summary 10 121-130 

December summary 10 131-140 

The maximum number of accounts per year is set to twenty. 
Therefore, a year's file consists of twenty records of 141 
bytes each. 

We also specified the functions that this program is to 
perform. 

* Create accounts 

* Post to accounts 

* Display summary by Account 

* Display account names 

* Display Monthly summary 
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* Display Year-end summary 
Create accounts: 



This function creates the file for a year. It asks for the 
number and names of the accounts. The records are then 
written with the account name and the summary fields are set 
to zero. Should a data file already exist with the sane 
name, the old file is deleted. 



Post to accounts! 



This function asks for the account number to be posted and 
whether the posting is an income or expense. For example, 
the category "SALARY" is an income account and the category 
"RENT" is an expense account. 

After this, the current contents of the account are 
displayed. When you post the appropriate amount, which is 
always positive. If you are making a correction entry, use a 
negative amount. 

Now the updated contents are displayed. You may then make a 
new entry. 



Producing account summary: 

After entering the account number, the summary of the twelve 
months and the year's total are displayed for that account. 

Display account names: 



Each account is determined by its number. Should you forget 
a number, this function lists all accounts by name and 
corresponding number. 



Display monthly summary: 



Here the income or expenses of all accounts are displayed. 
The monthly balance of all accounts is also displayed. 



Display year-end summary: 

This function shows the summary of all accounts and the 
year-end balance. This display takes some time, since all 
monthly fields of each record must be read and totaled. It 
accesses the entire file. 

Here's the program listing: 
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100 POKE 53280, 2 :POKE53281 , 2 :PRINTCHRS ( 158 ) ; : 

BL$ = " ":DIMS(12) 

110 GOSUB 2050 

120 INPUT"CURRENT YEAR : " ; Y$ 

130 IF Y$<"1984"ORYS>"1999"THENPRINTCHR$(145) ; :GOTOl20 
140 GOSUB 2050 
150 PRINT"SELECT A FUNCTION: 

160 PRINT" " :PRINT 

170 PRINT" -1- CREATE ACCOUNTS" 

180 PRINT" -2- POST TO ACCOUNTS" 

190 PRINT" -3- ACCOUNT SUMMARY" 

200 PRINT" -4- DISPLAY ACCOUNT NAMES" 

210 PRINT" -5- MONTHLY SUMMARY" 

220 PRINT" -6- YEAR SUMMARY" :PRINT 

230 PRINT" -0- END PROGRAM" 

240 GETX$:IFX$<"0"ORX$>"9"THEN240 

250 IFX$O"0"THEN270 

260 END 

270 ONVAHX5) GOSUB 290,560,920,1160,1370,1720 

280 GOTO 140 

290 REM ======================== 

300 REM CREATE ACCOUNTS 

310 REM ======================== 

320 GOSUB 2050 

330 PRINT" CAUTION! ANY PREVIOUS FILE FOR THIS YEAR" 

340 PRINT"WILL BE ERASED! " :PRINT 

350 PRINT"CONTINUE (Y/N)?" 

360 GETX$:IFX$O"Y"ANDX$O"N"THEN360 

370 IFX$="Y"THEN390 

380 CLOSEl:CLOSE2: RETURN 

390 OPEN2,8,15,"SsACCOUNTS"+Y$ 

400 OPENl,8,2,"ACCOUNTS" + Y$ + ",L,"-i-CHR$(141) 

410 GOSUB 2050 

420 INPUT"HOW MANY ACCOUNTS (1-20) s " ;AN 

430 PRINT 

440 IFAN<lORAN>20THENPRINTCHRS(145) ; :GOTO420 

450 FORI=lTOAN 

460 PRINT "NAME OF ACCOUNT NO.", -I;": "; 

470 INPUTAN$ 

480 IFLEN(AN$)>20THENPRINTCHR$(145) ; :GOTO420 

490 RC$=AN$+LEFT$(BL$,20-LEN(AN$) ) 

500 FORX=lT012 

510 RC$=RC$+STR$(0)+LEFT$(BLS,8) 

520 NEXTX 

530 PRINT#1,RCS 

540 NEXT I 

550 CLOSE 1: CLOSE 2: RETURN 

560 REM ============= 

570 REM POSTING 
580 REM ============= 

590 GOSUB2050 

6 00 INPUT" ACCOUNT NUMBER"; AN 

610 IFAN<lORAN>20THENPRINTCHRS(145) ; :GOTO600 

620 GOSUB2140 

630 PRINT" " 
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S(M) 
PA 

GOTO780 
S(M) 



640 PRINT"NO.";AN;" - ";AN$ 

650 PRINT" " 

660 PRINT"INCOME OR EXPENSE (I/E)?" 

670 PRINT" " 

680 GETX$:IFX$O"I"ANDX$O"E"THEN680 

690 INPUT"MONTH (1-12) : ";M 

700 IFM<10RM>12THENPRINTCHR$( 145) : :GOTO690 

710 PRINT" " 

7 20 PRINT"OLD CONTENTS 

730 PRINT" 

740 INPUT"POSTING AMOUNT 

750 PRINT" 

760 IFX$="I"THENS(M)=S(M)+PA: 

770 S(M)=S(M)-PA 

780 PRINT"NEW CONTENTS 

790 PRINT" " 

800 RC$=AN$+LEFT$(BL$,20-LEN(AN$) ) 

810 FORI=lT012 
820 S$ = STR$(S(I) ) 

8 30 RC$=RC$+S$+LEFT$(BL$,10-LEN(S$) ) 

8 40 NEXTI 

850 PRINT# 2 , "P"+CHR$ ( 2 ) +CHRS ( AN ) +CHR$ ( ) +CHRS ( 1 ) 

860 PRINT#1,RC5 

870 CLOSEl:CLOSE2 

880 PRINT" FURTHER POSTING (Y/N)?" 

890 GETX$:IFXS<>"Y"ANDX$O"N"THEN890 

900 IFX$0"Y"THENGOSUB2050;GOT0600 

910 RETURN 

920 REM =================== 

9 30 REM ACCOUNT SUMMARY 
940 REM =================== 

950 GOSUB2050 

960 INPUT"ACCOUNT NUMBER : ";AN 

970 IFAN<lORAN>20THENPRINTCHR$(145) ; :GOTO960 

980 GOSUB2140 

990 GOSUB2050:PRINTCHR$(145) ;CHR$(145) ; 

1000 PRINT" " 

1010 PRINT"NO.";AN;" - ";AN$ 

1020 PRINT" " 

1030 PRINT"MONTH TOTAL" 

1040 PRINT" " 

1050 TL=0 

1060 FORI=lTOl2 

1070 PRINTI;TAB(8) ;S(I) 

1080 TL=TL+S(I) 

1090 NEXTI 

1100 PRINT" " 

1110 PRINT"TOTAL";TAB(8) ;TL 
1120 PRINTTAB(9) •"=======" 

1130 PRINT" RETURN FOR MOPE" 
1140 INPUTX$ 

1150 CLOSEl:CLOSE2: RETURN 
1160 REM ===================== 

1170 REM DISPLAY ACCOUNT NAMES 
1180 REM ===================== 
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1190 GOSUB2050 

1200 OPENl,8,2,"ACCOUNTS"+Y$+",L,"+CHR$(141) 

1210 OPEN2,8,15 

1220 1=1 

1230 PRINT* 2 , " P" + CHR$ ( 2 ) +CHR$ ( I ) +CHRS ( ) +CHRS ( 1 ) 

1240 RC$="" 

1250 FORX=lTO20 

1260 GET#1,X$ 

1270 RC$=RC$+X$ 

1280 NEXTX 

1290 INPUT#2,X 

1300 IFX=50THEN1340 

1320 PRINTI;" - ";RCS 

1330 1=1+1 :GOTO1230 

1340 PRINT"RETURN FOR MORE" 

1350 INPUTXS 

1360 CLOSEl:CLOSE2: RETURN 

1370 REM =============== 

1380 REM MONTH SUMMARY 
1390 REM =============== 

1400 GOSUB2050 

1410 INPUT"MONTH : ";M 

1420 GOSUB2050 

14 30 PRINT" " 

1440 PRINT"NO. NAME CONTENTS" 

1450 PRINT" " 

1460 OPENl,8,2,"ACCOUNTS"+Y$+",L,"+CHR$(141) 
1470 OPEN2,8,15 

1480 TL=0 

1490 FORAN=lTO20 

1500 AN$="":S$="" 

1510 PRINT#2,"P"+CHR$(2)+CHR$(AN)+CHR$(0)+CHR$(1) 

1520 FORI=lTO20 

1530 GET#1,X$ 

15 40 AN$=AN$+X$ 
1550 NEXTI 
1560 INPUT#2,F 

1570 IFFO50THEN1590 

1580 GOTO1670 

1590 PRI NT# 2 , "P" + CHR$ ( 2 ) +CHR$ ( AN ) +CHR$ ( ) +CHR$ ( 20+ ( M-l ) * 10 ) 

1600 FORI=lTO10 

1610 GET#1,X$ 

1620 S$=SS+XS 

1630 NEXT I 

1640 TL=TL+VAL(S$) 

1650 PRINT AN;TAB(6) ;AN$;TAB(26) ;SS 

1660 NEXT AN 

1670 PRINT" " 

1680 PRINT"TOTAL BALANCE" ; TAB ( 26) ; STR$ ( TL) 
1690 PRINTTAB( 26) •"=======» 

1700 PRINT"RETURN FOR MORE"" ; 

1710 INPUTXS :CLOSEl:CLOSE2: RETURN 

1720 REM ============== 

1730 REM YEAR SUMMARY 
1740 REM ============== 
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1750 GOSUB2050 

1760 OPEN1 ,8 , 2 , "ACCOUNTS"+YS+" , L, "+CHB$ ( 141 ) 

1770 OPEN2,8,15 

1780 PRINT" " 

1790 PRINT"NO. NAME YEAR BALANCE" 

1800 PRINT" " 

1810 TL=0 

1820 FOR AN=lTO20 

1830 PRINT* 2 , "P" + CHRS ( 2 ) +CHRS ( AN ) +CHRS ( ) +CHP$ ( 1 ) 

1840 RC$="" 

1850 FORI=lTO140 

1860 GET#1,X$ 

1870 RC$ = RC$-<-X$ 

1880 NEXTI 

1890 INPUT#2,F:IFF=50THEN1980 

1900 AN$ = LEFT$(RCS,20) 

1910 YB=0 

1920 FORI=lTO10 

1930 YB=YB+VAL(MID$(RC$,20+(I-1)*10,10) ) 

1940 NEXTI 

1950 TL=TL+YB 

1960 PRINTAN;TAB(6) ;AN$;TAB(26) ; YB 

1970 NEXTAN 

1980 PRINT" " 

1990 CLOSEl:CLOSE2 

2000 PRINT"TOTAL BALANCE" ; TAB( 26 ); TL 

2010 PRINTTAB(26) ;"=======" 

2020 PRINT"RETURN FOR MORE" 

2030 INPUTX$ 

2040 RETURN 

2050 REM =================== 

2060 REM PROGRAM HEADING 
2070 REM =================== 

2080 PRINTCHR$(147) ; 

2090 PRINTTABU) ;" = === === = === = === = === = === = = ===■■ 

2100 PRINTTABU) ;"H OME ACCOUNTING" 
2110 PRINTTABU) ;»============================» 

2120 PRINT:PRINT 

2130 RETURN 

2140 REM ================ 

2150 REM READ ACCOUNT 
2160 REM ================ 

2170 OPEN1 ,8 , 2 , "ACCOUNTS"+Y$+" , L, "+CHR$ ( 141 ) 

2180 OPEN2,8,15 

2190 PRINT* 2 , "P"+CHR$ ( 2 ) +CHR$ ( AN ) +CHR$ ( ) +CHR$ ( 1 ) 

2200 RC$="" 

2210 FORI=lTO140 

2220 GET#1,X$ 

2230 RCS=RCS+XS 

2240 NEXT I 

2250 INPUT*2,F 

2260 IFFO50THEN2300 

2270 PRINT" YEAR FILE OR ACCOUNT NOT FOUND! ": PRINT 

2280 PRINT"RETURN FOR MORE" : INPUTX$ 

2290 CLOSEl:CLOSE2: RETURN 
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2300 AN$ = LEFT$(RC$,20) 

2310 TL=0 

2320 F0BI=1T012 

2330 S(I)=VAL(MID$(RC$,20+(I-1)*10,10)) 

2340 TL=TL+S(I) 

2350 NEXT I 

2360 RETURN 



Program Documentation: 
Initialization: 



100 Screen and character color set; blank character 
string defined; variable for account summaries 
dimensioned. 

110-130 Program heading displayed and current year read. 

140-280 Program functions displayed and choice read; 
corresponding subprogram called. 



Establish Accounts: 



390-400 Any existing files of this year are erased and the 

new file is opened. 
480 Account name is placed in positions 1-20 of the 

record PCS . 
500-540 Month summaries are set to zero and placed in the 

record as string variables. 
530 The record is transferred with a trailing RETURN. 

Posting: 



590 The routine "Read Account" is called. This routine 
places the month summaries of the account in the 
variables S(l) to S(12) . 

800 Account name is placed in the record. 

810-840 Account summary is placed in the record. 

850-860 Record is transferred. 



Account Summary: 



980 Desired account is read and the month summaries 
are placed in variables S(l) to S(12). 

1050-1090 Month summaries are displayed and the total (TL) 
is added up. 

1110 Total displayed. 



Display Account Names: 



1220 Account number is initialized. 

1230 The head is positioned over the corresponding 
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record. 
1240-1280 Account name is read out of the record in RC$ . 
1290-1300 If RECORD NOT PRESENT is sent over the error 

channel (error 50), the routine is broken off. 
1320 Account number and name are displayed. 



Month Summary: 

1490-1660 Loop to read all accounts. 

1510 Position head over record. 

1520-1550 Read account name. 

1560-1580 Determine if account exists; stop if all twenty 

accounts have been defined. 
1590 Position over summary field of the desired month. 
1600-1630 Read the month summary. 
1640 Add month summary to total. 
1650 Account number, account name and month summary ai e 

displayed. 
1680 Total balance displayed. 



Year Summary: 



1820-1970 Loop to read all accounts 

1830 Position head over record. 

1850-1880 Complete record read into RC$ . 

1890 Test If RECORD NOT PRESENT. 

1900 Get account name from record. 

1920-1940 Read month summary, convert to numerical form and 

add to year summary (YS). 
1950 Year summary (YS) is added to total (TL). 
1960 Account number, account name and year summary 

displayed. 
2000 Total balance (month balance) displayed. 



Read Account: 



2190 Position over record given in AN. 

2210-2240 Read record into RCS. 

2250-2260 Test if RECORD NOT PRESENT. 

2300 Account name read from record. 

2320-2350 Month summaries read from record, converted to 

numerical form and placed into the table S{ 1 ) to 

S(12). 
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1.6 Disk Error Messages and their causes 

If you cause an error while working with the disk drive, the 
drive signals this by blinking the red LED. The LED blinks 
until you read the error channel of the disk drive or until 
you send a new command. First we want to see how to read the 
error message from the disk drive. 

In order to do this, the error/command channel must be 
opened with the secondary address 15: 

100 OPEN 15,8,15 

110 INPUT#15,A,B$,C,D 

120 PRINT A,B$,C,D 

If no error has occurred, the following is displayed: 

OK 

The first number is the error number, in this case zero, 
which means no error has occurred. Next follows the error 
message (variable BS). The variables C and D contain the 
track and sector numbers, respectively, in which the error 
occurred, which is dependent on the type of error (mainly 
associated with hardware errors and block-oriented 
commands) . 

This routine accomplishes the same function: 

100 0PEN15,8,15 

110 GET#15,A$:PRINTA$; : IFSTO64THEN110 

00, OK, 00, 00 

Here characters are read from the error channel until the 
end is recognized (status = 64). This gives the error message 
exactly as the BASIC 4.0 command 

PRINT DS$ 

When using BASIC 4.0, variables DS$ and DS are reserved 
variables which contain the complete error message and error 
number. Each access of these* variables gives the error 
status of the last disk operation. Unfortunately, the 
Commodore 64 does not use BASIC 4.0, so these variables are 
meaningless in Commodore 64 BASIC (BASIC 2.0) J 

Next follows the list of error messages that the DOS can 
recognize: 



00, OK, 00, 00 

This message occurs when the last disk operation was error 
free or if no command or data was sent after the last 
error message. 
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01, FILES SCRATCHED, XX, 00 

This is the message after a SCRATCH command. The number XX 
denotes the number of filed that were erased. Since this 
is not really an error message, the LED does not blink. 

20, READ ERROR, TT.SS 

This error means that the 'header' of a block was not 
found. It is usually the result of a defective diskette. 
TT and SS designate the track and sector in which the 
error occurred. Remedy: change defective diskette. 

21, READ ERROR, TT,SS 

This is also a read error. The SYNC (synchronous) marker 
of a block was not found. The cause may be an unformatted 
disk, or no disk in the drive. This error can also be 
caused by a misaligned read/write head. Remedy: Either 
insert a diskette, format the disk, or have the read/write 
head aligned. 

22, READ ERROR, TT,SS 

This error message means that a checksum error has 
occurred in the header of a data block, which can be 
caused by the incorrect writing of a block. 

23, READ ERROR, TT,SS 

The error implies that a data block was read into the DOS 
buffer, but a checksum error occurred. One or more data 
bytes are incorrect. Remedy: Save as many files as 
possible onto another diskette. 

24, READ ERROR, TT,SS 

This error also results from a checksum error in the data 
block or in the preceding data header. Incorrect bytes 
have been read. Remedy: same as error 23. 

25, WRITE ERROR, TT,SS 

This error is actually a VERIFY ERROR. After writing every 
block the data is read again checked against the data in 
the buffer. This error is produced if the data are not 
identical. Remedy: Repeat the command that caused the 
error. If this doesn't work, the corresponding block must 
be locked out from further use with the block-allocate 
command . 

26, WRITE PROTECT 0N,TT,SS 

An attempt was made to write to a disk with a write 
protect tab on it. Remedy: Remove write protect tab. 

27 .READ ERROR, TT,SS 

A checksum error occurred in the header of a data block. 
Remedy: Repeat command or rescue block. 
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28, WRITE ERROR, TT,SS 

After writing a data block, the SYNC characters of the 
next data block were not found. Remedy: Format disk again, 
or exchange it. 

29, DISK ID MISMATCH,TT,SS 

The ID (two character disk identification) in the DOS 
memory does not agree with the ID on the diskette. The 
diskette was either not initialized or there is an error 
in the header of a data block. Remedy: Initialize 
diskette. 

30, SYNTAX ERROR, 00, 00 

A command was sent over the command channel that the DOS 
could not understand. Remedy: Check and correct command. 

31, SYNTAX ERROR, 00, 00 

A command was not recognized by the DOS, for example, the 
BACKUP command (Duplicate) on the 1541. Remedy. Do not use 
the command. 

32, SYNTAX ERROR, 00, 00 

The command sent over the command channel was longer than 
40 characters. Remedy: Shorten command. 

33, SYNTAX ERROR, 00, 00 

A wildcard ('*' or '?') was used in an OPEN or SAVE 
command. Remedy: Remove wildcard. 

34, SYNTAX ERROR, 00, 00 

The DOS cannot find the filename in a command. This may be 
because a colon was forgotten after the command word. 
Remedy: Check and correct command. 

39, PILE NOT FOUND, 00, 00 

User program of type 'USR' was not found for automatic 
execution. Remedy: Check filename. 

50, RECORD NOT PRESENT, 00, 00 

A record was addressed in a relative data file that has 
not yet been written. When writing a record this is not 
really an error. You can avoid this error message if you 
write the highest record number of the file with CHRS(255) 
when initializing it. This error will no longer occur upon 
later access. 

51, OVERFLOW IN RECORD, 00, 00 

The number of characters sent when writing a record in a 
relative file was greater than the record length. The 
excess characters are ignored. 

52, FILE TOO LARGE, 00, 00 

The record number of a relative file is too big; tne 
diskette does not have enough capacity. Remedy: Use 
another diskette or reduce the record number. 
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60, WRITE FILE OPEN, 00, 00 

An attempt was made to OPEN a file that had not previously 
been CLOSEd after writing. Remedy: Use mode 'M' in the 
OPEN command to read the file. 

61, FILE NOT OPEN, 00, 00 

A file was accessed that had not been OPENed. Remedy: Open 
the file or check the filename. 

62, FILE NOT POUND, 00, 00 

An attempt was made to load a program or open a file that 
does not exist on the diskette. Remedy: Check the 
filename. 

63, FILE EXISTS, 00, 00 

An attempt was made to establish a new file with the name 
of a file already on the diskette. Remedy: Use a different 
filename or @s (to replace the old file). 

64, FILE TYPE MISMATCH, 00, 00 

The file type use in the OPEN command does not agree 
with the file type in the directory. Remedy: Correct 
file type. 

65, NO BLOCK, TT,SS 

This error message is given in association with the BLOCK- 
ALLOCATE command when the specified block is no longer 
free. In this case, the DOS automatically searches for a 
free block with a higher sector and/or track number and 
gives these values as the track and sector number in the 
error message. If no block with a greater number is free, 
two zeroes will be given. 

66, ILLEGAL TRACK OR SECTOR,TT,SS 

If you attempt to use a block with the block commands that 
does not exist, this error is returned. 

67, ILLEGAL TRACK OR SECTOR,TT,SS 

The track-sector combination of a file produces a non- 
existent track or sector. 

70, NO CHANNEL, 00, 00 

An attempt was made to open more files than channels 
available or a direct access channel is already reserved. 

71.DIR ERROR, TT,SS 

The number of free blocks in the DOS storage does not 
agree with the BAM. Usually this means the disk has not 
been initialized. 

72, DISK FULL, 00, 00 

Fewer than three blocks are free on the diskette or the 
maximum number of directory entries have been used (144 on 
the VIC 1541) . 
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73, CBM DOS V.26 1541,00,00 

The message is the power-up message of the VIC 1541. As an 
error message, it appears when an attempt is made to write 
to a disk that was not formatted with the same DOS 
version, for example, the forerunner of the CBM 4040, the 
CBM 2040 (DOS version 1.0). 

74, DRIVE NOT READY, 00, 00 

When one attempts to use the disk without a diskette in 
the drive, this error message is returned. 

75, FORMAT SPEED ERROR, 00, 00 

This error message occurs only on the CBM 8250. It 
indicates a deviation from the normal revolutions per 
minute while formatting. 
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1.7 Overview of Commands with a Comparison of BASIC 2.0 - 
BASIC 4.0 - DOS 5.1 



BASIC 2.0 

OPEN - Mode 'A' 

LOAD'S", 8 & LIST 
V(alidate) 

C(opy) 

CLOSE ... 

LOAD"...", 8 

OPEN ...,8,... 

OPEN 1,8,15 ... 

SAVE".. .",8 

N(ew) 

I(nitialize) 

P 

R(ename) 

S(cratch) 



BASIC 4.0 (abbrev) DOS 5.1 



APPEND ( aP) 
BACKUP (bA) 
CATALOG (CA) 
COLLECT (COL) 
CONCAT (conC) 
COPY (cop) 
DCLOSE (dC) 
DLOAD (dL) 
DOPEN (dO) 
DS$ , DS 
DSAVE (dS) 
HEADER (hE) 
I( Initialize) 
RECORD (reC) 
RENAME (reN) 
SCRATCH (sC) 



?$ or >S 
ev or >V 

@C:.. or >C:.. 

e file or /file 

@ or > 

@N: .. or >N: .. 
PI or >I 

@R: .. or >R:. . 
@S: . . or >S: .. 



This table lists the different versions of BASIC. The DOS 
5.1 is found on the TEST/DEMO disk and will be described in 
section 4.2.1. 

The essential difference between BASIC 2.0 and BASIC 4.0 is 
that with BASIC 2.0, each command is executed by the disk 
control system (DOS) and must be sent over channel 15. The 
disk commands of BASIC 4.0 manage this channel themselves 
(with the exception of INITIALIZE). For example, the command 
HEADER DO ,"DISK1" , IH J generates the same sequence of 
commands necessary in BASIC 2.0, namely: 

OPEN l,8,15,"N:DISKl,HJ" 
CLOSE 1 

Here are are the specifics of the BASIC 4.0 commands: 

Note the following parameters: 

lfn = logical file number 

dn = drive number - drive (DO) or drive 1 ( Dl ) with 

a double drive, or DO for a single drive 
da = device address of the disk drive (U4 to U31) 

Information in parentheses is optional. The standard 
parameters DO and U8 will be used (meaning Drive and Unit 
8). 
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APPEND : 

This command allows data to be added to a sequential file, 
which is accomplished in BASIC 2.0 with the OPEN-command 
mode A. 

This command has the following format: 

APPEND#lfn, "filename" ( ,Ddn,Uda) 

For example, should the sequential file "SEQU.l" be on drive 
0, the following statements are necessary to add a data 
record to it: 

100 APPENDfl," SEQU.l" , DO 
110 PRINT#1,X$ 
120 CLOSE 1 



BACKUP : 

With this command, a complete diskette can be copied. The 
BACKUP command can only be used with a dual disk drive (such 
as the 4040), however. Notice the format of this command: 

BACKUP Ddn TO Ddn(,Uda) 

It is important that either DO to Dl or Dl to DO be given. 
An example: 

The diskette in drive 1 is supposed to be copied onto the 
disk in drive 0. To this end, give the following command: 

BACKUP Dl TO DO 



I 'ATA I ■<»:: 

'!■■■ i .". .\LOG command of BASIC 4.0 has the advantage that the 
program in the computer's memory is not erased, as is true 
in BASIC 2.0. The format of the command: 

CATALOG (Ddn.Uda) 

If no drive number is given for a double drive, the contents 
of both drives are given. With a single drive, CATALOG DO is 
assumed. An example: 

CATALOG DO 

The contents of the disk in drive will be displayed. 

COLLECT : 

This command corresponds with the VALIDATE command of BASIC 
2.0. The syntax of this command looks like this: 

COLLECT (Ddn) 
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CONCAT : 

i ■■■'.■■»? concatenates sequential files, in which one file is 
to oe made from the data of two files. The format: 

CONCAT (Ddn, ("filel" TO ( Ddn , ) "f ile2" (ON Uda) 

Suppose you want to combine the data of the files "SE0U.2" 
in drive and "SE0U.1" in Dl. To accomplish this, issue the 
following command: 

CONCAT D0, M SEOU.2" TO Dl,"SEOU.l" 



COPY : 

With this command files can be copied from one drive to the 
other (except relative files). The command is useless with a 
single drive. The syntax looks like this: 

COPY (Ddn,)("filel") TO (Ddn, ) ( "f ile2" ) 

To copy all files (for example, from drive to drive 1), 
use the following command: 

COPY DO TO Dl 



DCLOSE : 

The command DCLOSE has the same function as the simple CLOSE 
command, with the following exceptions: 

DCLOSE closes all files 

DCL0SE#1 closes file number 1 

DCL0SE#1 ON U9 closes the logical file #1 on device 

address 9 
DCLOSE U8 closes all files on device address 8 

The command has the following syntax: 

DCLOSE (#lfn) (ON Uda) 



DLOAD: 



The command DLOAD has the advantage that the standard device 
address 8 used. The format: 

DLOAD "program" (,Ddn)(,Uda) 

For instance, if you want to load the program "PRGi2" from 
drive or from a single drive, give the following command: 

DLOAD "PRG.2" 

Drive (DO) is the default value. 
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DOPEN: 



This command of BASIC 4.0 is very comprehensive. The 
following format verifies this: 

DOPEN#lfn,"file"( ,Ddn) ( ,Uda) ( , f lleparameter ) 

The peculiarity of this method of opening is the file 
parameter. There are two file parameters, that have the 
following function: 



' L' -parameter 



-parameter : Mode of operation 




NO 



YES 



A relative file is 

opened. 

A sequential file is 

opened for writing. 

A file is opened for 

reading(REL,SEO,PRG,USR) 



In addition to the "L" parameter the record length must be 
given (such as L80). A DOPEN command of this type looks like 
this: 

DOPEN#l,"FILE.REL" ,D0,L8O 

Here a relative file is opened with a record length of 80 
bytes. The declaration of the file parameter is only 
necessary once, at the establishment of the file. All later 
openings of the file can occur without the parameter 
declaration. 



DSS & PS : 

After a disk error, the complete error message can be 
displayed with PRINT DS$ or just the error number with PRINT 
DS. Of course, the error can be read within a program and 
the appropriate branch made. For example: 



100 IF DS 



26 THEN GOTO 



DSAVE : 

A program can be saved on disk with this command. The 
following format is to be noted: 

DSAVE ( Ddn, ) "programname" ( ,Uda) 



HEADER : 

A disk is formatted with the HEADER command in BASIC 4.0. It 
corresponds to the NEW command in BASIC 2.0. The syntax of 
the command: 
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HEADER "diskname",DO,Iid(u,da) 
or HEADER Ddn , "diskname" , lid 

Here there are two possibilities to designate the drive. The 
id is the diskette identification. If it is not given, the 
disk is presumed to be formatted and is merely given a new 
name and all files are erased. 



RECORD : 

This command corresponds to the position command of BASIC 
2.0 (DOS 2.6). The read/write head can be positioned over a 
record in a relative file, without the need to send the 
position over channel 15. The syntax of this command 
illustrates how easy this positioning is: 

RECORD#lfn,rn( ,bp) 

The logical file number is obtained from the opened relative 
file, 'rn' is the record number (1-65535) and 'bp' is the 
position within this record (1-254). 

An example: You want to position the head over the twelfth 
byte of the 128th record of a relative file opened with the 
logical file number 2. The following command accomplishes 
this: 

RECORD* 2, 128, 12 



RENAME : 

This RENAME is similar to the RENAME of BASIC 2.0. The 
format of this command: 

RENAME (Ddn, ("old name" TO "new name"(,Uda) 

SCRATCH : 

This method of erasing files is essentially easier because 
files can be erased with one command. The format of this 
command : 

SCRATCH (Ddn,)"f ile"( ,Uda) 

After entering a SCRATCH command the message "ARE YOU SURE?" 
which allows the command to be stopped. If the file is 
really supposed to be erased, answer ' Y' else 'N'. After 
erasing the file, the message "FILES SCRATCHED" appears on 
the screen. 
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Chapter 2: Advanced Disk Programming 

2.1 Direct Access of any Block of the Diskette 

When handling files and programs on the diskette, as des- 
cribed in Chapter 1, we didn't have to concern ourselves 
with the organization on the diskette, because the disk 
operating system (DOS) took care of these details for us. 

But the DOS offers the capability of accessing each 
individual block on the diskette. This gives us a lot of 
flexibility - ranging from manipulation of individual files 
to creating completely new data structures. 

In order to access a block directly, a channel is OPENed to 
a data buffer within the 1541 disk drive. -It is over this 
channel that data is transmitted. The data buffer serves as 
an intermediate storage place for the data that is read from 
the diskette or written to the diskette. In order to inform 
the DOS that we want to work with direct access commands, we 
use a special filename in the OPEN command: 

OPEN 1,8,2,"#* 

Using this command, logical file number 1 on device 8 (the 
disk drive), is associated with a direct access file. 
Channel 2 serves to transmit data to and from the disk 
drive. The channel number (secondary address in the OPEN 
command) may be 2 through 14. Channels and 1 are reserved 
for LOAD and SAVE and channel 15 is the command channel. The 
choice of a secondary address is arbitrary. You may not use 
the same secondary address simultaneously, since the DOS, 
upon encountering the second OPEN command with the same 
secondary address, closes the previous file using this 
channel number. This also occurs when working with 
sequential or relative files. 

This form of the OPEN command causes the DOS to search for 
a free data buffer and assign it to that channel. By using a 
GET# statement immediately after the OPEN we can find the 
buffer number that the DOS assigns: 

100 OPEN 1,8,2,"#" 

110 GET#1, A$ 

120 PRINT ASC(AS+CHR$(0) ) 

RUN 



In this case, buffer three was assigned. The buffer numbers 
range from to 4. Each buffer can hold 256 characters of 
data. The buffers are located in the following memory 
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locations in the VIC 1541: 



Buffer number Memory location 

$300-$3FF, 768-1023 

1 $400-$4FF, 1024-1279 

2 $500-S5FF, 1280-1535 

3 $600-$6FF, 1536-1791 

4 $700-$7FF, 1792-2047 

Buffer 4 is normally unavailable, because the BAM is stored 
there. If we work with sequential or relative files at the 
same time, buffer 3 is also unavailable, because it is used 
for the directory. If we want to associate a specific data 
buffer for direct access, we can assign it with the OPEN 
command. 

OPEN 1,8,2,"#3* 

This associates buffer 3 ($600-$6FF) with channel number 2, 
assuming it is still free. Unless you have a pressing reason 
to use a specific buffer, you should leave the choice of the 
buffer up to the DOS, because the choice of a definite 
buffer increases the possibility that it will not be 
available. 

After opening a channel, you should check the error channel. 

130 OPEN 15,8,15 

140 GET#15, A$ : PRINT A$ ; : IF ST<>64 THEN 140 

If the buffer is already in use, you will receive the error 
message 

70, NO CHANNEL, 00, 00 

If no other files are open, you can open up to 4 channels 
for direct access. The following example illustrates this: 

10 OPEN 1,8, 15, "10" : 1=2 : REM ERROR CHANNEL 

20 OPEN 2,8,2, "#" : GOSUB 100 

30 OPEN 3,8,3, "#" : GOSUB 100 

40 OPEN 4,8,4, "#" : GOSUB 100 

50 OPEN 5,8,5, "#" : GOSUB 100 

60 OPEN 6,8,6, "#" : GOSUB 100 

70 END 
100 GET#I,AS:PRINT ASC( AS+CHRS ( 0) ) 
110 1=1+1 : REM BUFFER NUMBER 

120 GET#1,A$ : PRINT AS; : IF ST<>64 THEN 120 
130 RETURN 



When RUN, the above program produces the following output: 
3 
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00, OK, 00, 00 

2 
00, OK, 00, 00 

1 
00, OK, 00, 00 


00, OK, 00, 00 

199 
70, NO CHANNEL, 00, 00 

As you see, attempting to open a fifth channel for direct 
access fails. 

Transmitting data to and from the buffer usually takes place 
using the GET* , INPUT* and PRINT* statements. 

If a buffer contains pure text (alphanumeric data) which is 
not longer than 88 characters and is separated using CR 
(Carriage Return, CHR$(13)), it can be read using INPUT*. 
However, if the buffer contains control characters or the 
text is separated using commas or colons, the INPUT* 
statement fails. Then we must use the GET* statement, which 
retrieves only one character at a time. GET* does not allow 
null values (CHR$(0)) to be read. In this case, GE1# 
receives an empty string and you must check for this 
condition as below: 

100 GET#2, A$ ! IF A$ + "• THEN A$ = CHR$(0) 

A simpler alternative to the GET* statement is to use the 
statement INPUT*, as is described in section 4.3.1. Here you 
can declare how many characters are to be read into a 
string. It also handles null values (CHR$(0)). You can read 
almost the entire buffer (255 characters are possible) with 
one command. 

In the next section, all commands used for direct access are 
described in detail. Keep the following points in mind when 
using direct access commands. 

When using direct access commands, you must explicitly cause 
the blocks on the diskette to be read or written. The direct 
access commands are transmitted over command channel 15. The 
data that is read from or written to a buffer are 
transmitted over a separate channel that is associated with 
that buffer. Both channel 15 and the separate channel must 
be OPENed before transmission can begin. 

1) A PRINT* statement to command channel 15. sends a direct 
access command to the DOS. 

2) A PRINT* statement to channels 2 thru 14 sends data to a 
buffer. 

3) An INPUT* or GET* statement to command channel 15 re- 
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turns any error messages detected by the DOS. 

4) An INPUT* or GET* statement to channels 2 thru 14, reads 
the data from the buffer. 

If you are ready to work with the block commands and want to 
display individual blocks on the screen or change them, you 
can use the DOS monitor in section 4.6, which provides a 
simple and easy way of doing so. 
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2.2 The Direct Access Commands 

2.2.1 The Block-Read Command B-R 

The block-read command instructs the 1541 to read a block 
from the diskette into a buffer of a previously opened 
direct access file. The block-read command is sent over the 
command channel (secondary address 15) to the disk drive. 
The block-read command can be shortened to B-R. Because this 
command does not read the first byte of the block, you can 
substitute the command Ul to read a block. The command has 
the following syntax: 

Ul channelnumber drive track sector 

You must give the channel number that you used when OPENing 
the direct access file. Next follows the drive number, which 
is always zero for the VIC 1541, and then the track and 
sector numbers of the block you want to read. 

10 OPEN 1,8,15 

20 OPEN 2,8,2, "#" 

30 PRINT#1, "Ul 2 18 0" 

This reads the contents of track 18 sector into the buffer 
belonging to channel 2. Now you can read the data from this 
buffer with GET#2. 

40 GET* 2, A$,B$ 

50 PRINT ASC(A$), ASC(BS) 

18 1 

Now we have read and displayed the first two bytes in the 
buffer. Sector of track 18 contains a pointer to the first 
directory block (track and sector) and the BAM for the 
diskette. 

In the demo program DISPLAY T&S on the TEST/DEMO diskette 
(section 4.2.7) this command is used in order to read the 
BAM from the disk and to graphically display each record on 
the disk. 

We can read all 256 bytes of the block from the buffer with 
the GET# statement; in our example we will read the diskette 
name and ID from position 144. 

The blocks which comprise a file are chained to each other. 
The first two bytes of each file block contains a pointer to 
the track and sector of the following block, using this 
information, you can piece together the usage of disk space 
for a file. A track pointer of zero indicates the last 
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block of the file and the pointer which usually contains the 
sector number now contains the number of bytes of the last 
block which are part of this file. The first sector of a 
file can be read with our program in section 4.1.1. The 
following small program displays all of the remaining tracks 
and sectors that are part of the file. 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 INPUT "TRACK AND SECTOR ";T,S 

130 PRINT#l,"Ul 2 0";T;S 

140 GET#2, T$, S$ 

150 T = ASC(T$+CHR$(0) ) : S = ASC ( S$+CHRS ( ) ) 

160 IF T=0 THEN CLOSE 2 : CLOSE 1 : END 

170 PRINT "TRACK" j T," SECTOR" ;S 

180 GOTO 130 

Enter 18 and as track and sector to follow the blocks for 
the BAM and directory. 



2.2.2 The Block-Pointer Command B-P 

The diskette name is located starting at position 144 of 
track 18, sector 0. Using the above example, we have to read 
the first 143 bytes of the buffer in order to be positioned 
at the diskette name. But the DOS has an easier way to do 
this. To access any desired byte of a buffer, you can use 
the block-pointer command, using the block-pointer command 
the DOS moves to an exact position within the buffer. The 
block-pointer command can be shortened to B-P. The syntax 
is the following: 

B-P channelnumber position 

Now we can read the diskette name directly: 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT#1,"U1 2 18 0" 

130 PRINT#1,"B-P 2 144" 

140 FOR I = 1 TO 16 : REM MAXIMUM LENGTH 

150 GET#2, A$ : IF A$=CHR$(160) THEN 170 

160 PRINT A$; : NEXT 

170 CLOSE 2 : CLOSE 1 

Here we first read the block, set the buffer pointer to 
position 144 and then read and print the diskette name which 
has a maximum length of 16 characters. A shifted space 
(CHR$(160)) indicates the end of the diskette name. 

The bytes in the buffer are numbered through 255, the 
first byte having the number 0. The buffer pointer is auto- 
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matically set to zero by reading a block with Ul. You can, 
for example, read byte number 2 after reading the name. You 
do fchis by setting the buffer pointer to this value. 

PRINT* 1, "B-P 2 2" 



2.2.3 The Block-Write Command B-W 

The block-write command allows us to write the contents of a 
buffer to a desired block on the diskette. With this, you can 
write the block one has sent to the buffer within the disk 
drive. 

It is possible to read a block into the buffer with the 
block-read command, change some bytes, and then write the 
block back. The block-write command can be shortened to B-W. 
Because this B-W command writes the contents of the buffer 
pointer, one usually uses the U2 command which always sets 
the buffer pointer to 1. The syntax of the command is 
analogous to the B-R command: 

U2 channelnumber drive track sector 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT* 2, "TEST DATA" 

130 PRINTtl, "U2 2 10" 

140 CLOSE 2 : CLOSE 1 

Here the text "TEST DATA" will be written to the buff-er 
associated to channel 2 and then written to track 1 sector 
of the diskette. The U2 command does not change the contents 
of the buffer. 

Here's an example of using the block-write command to change 
the diskette name that we read in the last section. For this 
we must fill the new name with 16 characters ending with a 
shifted spaces CHR$(160), so that we can write it to the 
disk. We will again use the Dlock-pointer command to set the 
buffer pointer directly to the desired position within the 
buffer. 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT#1,"U1 2 18 0" 

130 PRINT#1,"B-P 2 144" 

140 A$="NEW FILE NAME" 

150 IF LEN(A$X16 THEN A$ = A$ + CHR$ ( 160 ) : GOTO 150 

160 PRINT#2,A$; 

170 PRINT#1,"U2 2 18 0" 

180 CLOSE 2 

190 PRINT* 1," 10" : CLOSE 1 
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First we read track 18 sector into the buffer, set the 
buffer pointer to the position of the diskette name and 
write a new 16 character name to the buffer. Note that the 
diskette name is changed in the buffer only. But in line 
170, the buffer contents are written to the same block which 
changes the name permanently on the diskette. Next channel 2 
is closed. Finally the diskette is initialized so the BAM 
and name in the DOS memory are updated. Get the directory 
with 

LOAD'S", 8 

LIST 

on the screen to verify that the diskette name has changed. 



2.2.4 The Block-Allocate Command B-A 

The block-allocate command has the cask of indicating in the 
BAM (block availability map) is a particular diskette block 
is being used. The block allocate command can be shortened 
to B-A. For program, sequential or relative files, as 
diskette blocks are used, the BAM is updated to note that 
the block is no longer available. But blocks written using 
the direct access commands are not automatically allocated. 
When blocks used in this manner are not allocated, the 
possibility exists that they will be overwritten when other 
files are used. The block-allocate command can be used to 
prevent this overwriting. The block-allocate command has the 
following syntax: 

B-A drive track sector 

With this the corresponding block in the BAM is marked as 
allocated and is protected from being overwritten by other 
files. If the block was already allocated, the error channel 
returns error message 65,' NO BLOCK'. 

100 OPEN 1,8,15 

110 INPUT "TRACK, SECTOR ";T,S 

120 PRINT#1, "B-A 0";T;S 

130 INPUT#1, AS,B$,CS,DS 

140 PRINT A$","B$","C$","D$ 

Using this program you can input a track and sector number 
of a block that you want to allocate. If the block is still 
free, it was allocated and the message 00, OK, 00, 00 is 
returned. If that block is already allocated, the message 
65, NO BLOCK, TT,SS is returned. In this case TT and SS 

contain the next higher numbered free block on the diskette. 
This tells you that the requested block is allocated but the 
block at TT,SS is still available. If error message 65 
returns zeroes as the track and sector numbers, it means 
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that no block with a higher track and/or sector number is 
available. The following program automatically allocates the 
next free sector: 

100 OPEN 1,8,15 

110 INPUT "TRACK, SECTOR ";T,S 

120 PRINT#1, "B-A 0":T:S 

130 INPUT* 1, A$,B$,TT,SS 

140 IF A$ = "00" THEN 190 

150 IF A$<>"65" THEN PRINT A$" , "B$" , "TT" , "SS : END 

160 IF TT=0 THEN PRINT "NO MORE FREE BLOCKS" : END 

170 IF TT=18 THEN TT=19 : SS=0 

180 T=TT : S=SS : GOTO 120 

190 PRINT "TRACK" TT "SECTOR" SS "ALLOCATED." 

The test for track 18 in line 180 prevents a block in the 
directory from being allocated. An additional error message 
in connection with the B-A command is interesting. If one 
attempts to allocate a block that does not exist, for 
example, track 20 sector 21, one received the error message 

66, ILLEGAL TRACK OR SECTOR, 20, 21 

Marking a block as allocated in the BAM prevents it from 
being overwritten by other files. The block will be 
recognized as allocated until the command VALIDATE (COLLECT 
in BASIC 4.0) is issued. The VALIDATE command rebuilds a new 
BAM by rechaining the blocks of individual files and marking 
each block as belonging to a a new BAM. Unclosed files, 
marked in the directory with * are deleted. All blocks 
allocated with the B-A command and those not belonging to a 
properly closed file are freed. So, if you allocate blocks 
that do not belong to a file that appears in the director! , 
you should not use the VALIDATE command, or the blocks will 
be freed, thus destroying your file. 



2.2.5 The Block- Free Command B-F 

The block-free command performs the opposite function of the 
block-allocate command. It marks a block as not allocated 
(free) in the BAM. The block-free command can be shortened 
to B-F. The syntax is analogous to the block-allocate 
command : 

B-F drive track sector 

100 OPEN 1,8,15 

110 PRINT* 1, "B-F 20 9" 

Here the block in track 20 sector 9 is freed in the BAM. If 
this block is already free, no error occurs. 
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Allocating and freeing dIocks has an effect only on the 
blocks used by program, sequential or relative file by the 
DOS. The block-write and block-read commands do not check 
the BAM before overwriting blocks. With these commands you 
can write to blocks marked as allocated in the BAM. If, for 
example, you have a disk containing only direct access 
files, it is in principle unnecessary to allocate written 
blocks because no other files will be written on the 
diskette. In this case, you can use the directory blocks in 
track 18 and have 672 blocks available on the VIC 1541 
diskette. 



2.2.6 The Block-Execute Command B-E 



The block-execute command allows a block to be read from 
diskette into a buffer and then the contents of the buffer 
to be executed as a machine language program. You can cen 
write routines that the DOS is supposed to execute with the 
B-W or U2 command to a sector and later load it into a 
buffer with the block-execute program where it will be 
executed as a machine language program. Naturally, this 
presupposes knowledge of the internal workings of the DOS. 
If you want to use the B-E command, you usually give the 
buffer number in the OPEN command, in case the machine 
language program is not relocatable and is written for a 
specific buffer. The block-execute command has the following 
syntax: 

B-E channelnumber drive track sector 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#3" 

120 PRINT* 1, "B-E 2 17 12" 

Here buffer 3 ($600-$6FF) is assigned to channel 2. The 
contents of track 17 sector 12 is loaded into this buffer 
and there the machine language program is executed. 

The block-execute command is a combination of the block-read 
and memory-execute commands. Examples of the design of 
machine language programs to execute in the DOS are found in 
section 2.4 by the memory commands. 
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2.3 Uses of direct access 

What do the direct access commands permit us to do? 

Here is a sample of their use: 

By manipulating individual sectors you can make changes to 
the BAM sector (Track 18, Sector 0) such as changing the 
diskette name or ID. 

You can make changes to the DIRECTORY (beginning at Track 
18, Sector 1). Each file entry in the directory has unused 
space. You can use the unused space to store additional 
information. 

You can change file names in the directory by using direct 
access commands. 

You can follow the "chaining" of the blocks in a file to 
determine if the file is intact. 

You can CLOSE an unclosed file by setting bit 7 of the file 
type indicator in the directory. For example, you can change 
the file type indicator from $02 to $82. Normally these 
files are indicated in the directory with an asterisk; after 
the above change the asterisk will disappear. 

Each file entry also contains a "lock" which disallows 
deletion (SCRATCH command). If you set bit 6 of the file 
type then the file is said to be locked and not available 
for deletion. These entries have the < symbol after the type 
designation in the directory listing. Using this bit of 
knowledge, you can protect important programs on your 
diskette from accidental erasure. More information on this 
topic is found in section 4.1. 

If you are interested in making such changes, you may want 
to read an entire sector and display it on the screen, 
change it, and write it back again. Such a program called 
the .DI.SK MONITOR is described in section 4.6. Before you 
begin with such experiments, nowever, you should make a copy 
of your diskette. A directory or BAM error can result in the 
loss of the entire diskette contents. 

Have you ever accidentally scratched a program or file from 
a diskette? As long as you haven't written any other 
programs or data to the diskette, you can recover this 
scratched file. Scratching a file simply sets the file type 
to in the directory and frees the allocated blocks. You 
need only search the directory entries for the file and 
restore the file type: $81 for SEP, $82 for PRG, $83 for 
USR, and $84 for REL. After restoring the file type, you 
should use the VALIDATE command to reallocate the blocks 
again (for example: OPEN 1,8 ,15:PRINT#1 ,"V0"). 
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Other uses of direct access can provide the means for 
creating new data structures that the DOS normally does not 
recognize. You can undertake the management of the new file 
yourself, and use the direct access commands for reading and 
writing. Such a data structure is the ISAM file. ISAM is an 
abbreviation for Indexed sequential Access Method. Witn an 
ISAM file, you can directly access each record, similar to 
the relative file. However, access is not by the record 
number, however, but by a key or Index. This index is a 
field within the record. If, for example, a record consists 
of 5 fields, last name, first name, street, city/state and 
zip code, last name can be defined as the access key. To to 
read the record Muller, the comniand is simply 'read record 
"Muller"'. We need not concern ourselves with record number 
or other ordering criteria and can select which record we 
want to read, change, write or erase with clear text. In 
such an ISAM file system, the index is usually saved 
separately, together with the information where the data 
record can be found on the disk. Such an ISAM file 
management with very powerful additions as described here, 
is found along with other features in the program 
development system MASTER 64, also available for the 
Commodore 64 from Abacus Software. 
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2.4 Accessing the DOS - The Memory Commands 

In section 2.2.6 we saw a way to load a program into DOS 
memory and execute it. With the memory commands, we can 
access each byte of the DOS and execute programs in RAM and 
ROM. For instance, we can access the work space of the DOS 
and read the number of free blocks on the disk or get the 
disk name from the BAM buffer. By writing into the DOS RAM 
we can change constants such as the device number of the 
drive or the number of read attempts for a block until an 
error message results. Furthermore, we can execute routines 
inside the DOS memory. These can be DOS ROM routines or your 
own, that are stored in a buffer and executes there. Of 
course this presumes knowledge of 6502 machine language and 
of the method of operation of the DOS. We hope this book is 
be helpful for the latter. Now follows a description of the 
commands and examples of their use. 



2.4.1 The Memory- Read Command M-R 

Using this command, you can access each byte of the DOS. The 
memory-read command can be shortened to M-R. The memory-read 
command is transmitted over the command channel. The byte 
read is then returned over the command channel where it can 
be retrieved with GET#. The syntax of the command looks like 
this: 

M-R CHR$(LO) CHR$(HI) 

LO and HI signify the low and high bytes of the address in 
the DOS that should be read. The following program asks for 
an address and reads the contents of the address out of the 
DOS. 

100 INPUT"ADDRESS ";A 

110 HI = INT (A/256) 

120 LO = A-256*HI 

130 OPEN 1,8,15 

140 PRINTU, "M-R" ;CHR$(LO) ;CHR$(HI) 

150 GET#1,A$ 

160 PRINT ASC(AS+CHR$(0)) 

For instance, if we want to know the number of free blocks 
on a diskette, we don't have to read the entire directory, 
rather we can read the appropria'. . bytes directly from the 
DOS storage. This may be necessary it files are to be 
established by a program and you don't know if there is 
enough space on the disk. 

100 OPEN 1,8, 15, "10" 

110 PRINT#1, "M-R" CHR$(250) CHRS ( 2 ) 

120 GET#1, A$ : IF AS="" THEN A$=CHR$(0) 
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130 PRINT#1, "M-R" CHR$(252) CHR$ ( 2 ) 

140 GET#1, BS : IF B$="" THEN B$=CHRS(0) 

150 PRINT ASC(A$) + 256 * ASC(B$) "BLOCKS FREE" 

160 CLOSE 1 

With this syntax, an M-R command must be given for each byte 
that is to be read. As you can gather from the DOS listing 
and through checking and verifying, one can read more than 
one byte at a time with a M-R command. You need only give 
the number of bytes to be read as the third parameter: 

M-R CHR$(LO) CHR$(HI) CHR$( NUMBER) 

We can use this to read the name of a diskette from the BAM 
buffer storage. Before this can be done, the diskette must 
be initialized so that the current diskette name is stored 
in the buffer at address $700, out of which we will read the 
name of the disk with the M-R command. 

100 OPEN 1,8,15, "10" 

110 PRINT#1, "M-R" CHR$(144) CHRS(7) CHR$(16) 

120 INPUT#1, AS 

130 PRINT A$ 

This is a simple way to read the name of the diskette (16 
characters padded with shifted spaces (CHR$(160)). With this 
you can check if the correct diskette is in the drive. 

The disk buffer can also be read using this method. It also 
allows parts of the DOS to be manipulated by copying the 
contents of the ROM to a buffer where it can be changed and 
executed. This is explained in the next two sections. 



2.4.2 The Memory-Write Command M-W 

The complement command of memory-read is the command to 
write data in the DOS storage memory-write or M-W. Writing 
is allowed only to DOS RAM - page zero, stack, and buffers. 
It is possible to send several bytes with one command. The 
syntax look like this: 

M-W CHR$(LO) CHR$(HI) CHR$( NUMBER) CHR$(DATA1) CHR$(DATA2J 

The number of bytes as specified by NUMBER can be 
transmitted, theoretically 255, but because the input buffer 
holds only 40 characters, the number of bytes is limited to 
34. A possible use of this command is to change the address 
number (see program 'DISK ADDRESS CHANGE', section 4.2.3). 
The address is stored in two memory locations in page zero. 
The device number plus $20 (32 decimal) is stored in address 
$77 (119 decimal) for LISTEN, for receiving data from the 
computer. The address immediately following contains the 
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device number plus $40 (64 decimal) for TALK, for sending 
data to the computer. Because the addresses are saved 
separately. It is possible to use different send and receive 
addresses. In tne following example, the receive address is 
set to 9 and the send address to 10. 

100 OPEN 1,8,15 

110 PRINT#1, "M-W" CHR$(119) CHR$ ( ) CHR$ ( 2 ) 

CHR$(9+32) CHR$( 10+64) 

120 CLOSE 1 

140 OPEN 1,9,15 

150 OPEN 2,10,15 

160 PRINT#1."I0" 

170 INPUT#2,A$,B$,C$,D$ 

180 PRINT AS" ,"B$" ,"C$","D$ 

00, OK, 00, 00 

Programs cannot be loaded this way because the DOS will try 
to load the program using the same address that the filename 
was sent under. 

Changing the device number is necessary if you want to use 
more than one disk drive with a single computer. To this 
end, change the device address of the second drive to 9. 
This software change remains in effect only until a reset 
(for example, turning the drive off). If the change needs to 
be permanent, you can change the with DIP switches or cut 
the circuit board jumper inside the drive. 

Because many parameters of the DOS are in RAM, you can make 
extensive changes to the function of the DOS, such as the 
step size, with which the number of sectors per track is 
determined (address $69 (105 decimal), normally contains 
10). We can also specify the number of attempted reads until 
an error results (address $6A (106 decimal), contains 5). 
More addresses of parameters can be found in section 3.1.2. 



2.4.3 The Memory-Execute Command M-E 

Using this command you can call up and execute machine 
language programs in the DOS memory. The memory-execute 
command can be shortened to M-E. The programs must end with 
RTS (Return from Subroutine, $60). The syntax of the 
command: 

M-E CHR$(LO) CHRS(HI) 

Again, LO and HI are the low and high bytes of the starting 
address of the machine language routine. It is possible to 
call up routines in the DOS ROM as well as our own routines 
written to a buffer with M-W and there executed. As an 
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example, you can call up a routine that creates an error 
message. For example, address $EFC9 is the entry point for 
message 72, "DISK FULL". The example looks like this: 

100 OPEN 1,8,15 

110 PRINT#1,"M-E" CHR$(201) CHR$(239) 

120 INPUT#1,A$,B$,C$,D$ 

130 PRINT A$ "," B$ ■'," C$ " , " D$ 

In line 110, the address SEFC9 is divided into a low byte of 
$C9 (201) and high byte of $EF (239) and sent as the 
parameters of the M-E command. Then the error channel is 
read and the message displayed. 

72,DISK FULL, 00, 00 

If you want to run your own programs in the 1541 drive, the 
program should be written to a buffer and there called with 
M-E. Should this program be used more often, the contents of 
the buffer can be written to a block on the diskette. It can 
then be executed with the B-E command, which loads the 
contents of the block in the buffer and then automatically 
starts the routine. As a suggestion for your own program in 
DOS, you can display the directory in a different form, with 
additional parameters, similar to the program in section 
4.1.1. In addition, you could count the number of files on 
the disk and display that. Using such a routine you can get 
a much clearer understanding of how the directory is created 
in the DOS listing. If you are clear on the matter of the 
new directory format, you are ready to take the additional 
parameters from the directory entries and assemble them in 
the desired format. 



2.4.4 The User Commands U 

Using the USER commands there are two possible ways of 
executing programs in the drive. The user commands have the 
following syntax: 

UX 

X can be a letter from A to J or a digit from 1 to 9 or ':' 
(which takes the place of 10). When a command is called, a 
jump is made to the following addresses in DOS: 

substitute for 'Block-Read' 
substitute for 'Block-Write' 



UA 


Ul 


$CD5F 


UB 


U2 


$DC97 


UC 


U3 


$0500 


UD 


U4 


$0503 


UE 


U5 


$0506 


UF 


U6 


$0509 


UG 


U7 


S050C 
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UH 


U8 


S050F 


UI 


U9 


$FF01 


UJ 


U: 


SEAAO 



reset 

You are already acquainted with the commands Ul and U2 (also 
UA and UB); they serve as substitutes for BLOCK-READ and 
BLOCK-WRITE. The commands U3 to U8 (UC to UH) jump to 
addresses within buffer 2 (address $500 (1280) - see section 
2.1). If you want to use several commands, a jump table to 
individual routines can be placed there; if only one user 
command (U3) is used, the program can begin directly at 
$500. 

The user command UJ jumps to the reset vector; the disk 
drive is then reset. 

100 OPEN 1,8,15 

110 PRINT#1,"UJ" 

120 FOR 1=1 TO 1000 : NEXT 

130 GET#1,A$ : PRINT A$ : IF ST<>64 THEN 130 

73,CBM DOS V2.6 1541,00,00 

Line 1.20 waits for the reset to take place. Then the 
initialization message is retrieved in line 130. 

By using the user commands, parameters can be passed to the 
routines. The complete command string is put in the input 
buffer at $200 (512). Possible parameters are addresses, 
command codes, and filenames. This way, the user commands 
can be utilized to expand the commands of the disk or to 
realize a new data structure. Whole user commands can 
replace the M— E command with its corresponding addresses; 
the user-call is shorter and clearer. 
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Chapter 3: Technical Information 

3.1 The Construction of the VIC 1541 



3.1.1 Block Diagram of the Disk Drive 
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3.1.2 DOS Memory Map - ROM, RAM, I/O 

Memory map of the VIC 1541 disk drive 



65535 



49152 



16K 
Control system 



$FFFF 



SC000 



7183 
7168 



VIA Disk Control 



$1C0F 
$1C00 



6159 
6144 



VIA serial bus 



$180F 
51800 



2047 




$07FF 



$0000 
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Allocating and freeing dIocks has an effect only on the 
blocks used by program, sequential or relative file by the 
DOS. The block-write and block-read commands do not check 
the BAM before overwriting blocks. With these commands you 
can write to blocks marked as allocated in the BAM. If, for 
example, you have a disk containing only direct access 
files, it is in principle unnecessary to allocate written 
blocks because no other files will be written on the 
diskette. In this case, you can use the directory blocks in 
track 18 and have 672 blocks available on the VIC 1541 
diskette. 



2.2.6 The Block-Execute Command B-E 



The block-execute command allows a block to be read from 
diskette into a buffer and then the contents of the buffer 
to be executed as a machine language program. You can cen 
write routines that the DOS is supposed to execute with the 
B-W or U2 command to a sector and later load it into a 
buffer with the block-execute program where it will be 
executed as a machine language program. Naturally, this 
presupposes knowledge of the internal workings of the DOS. 
If you want to use the B-E command, you usually give the 
buffer number in the OPEN command, in case the machine 
language program is not relocatable and is written for a 
specific buffer. The block-execute command has the following 
syntax: 

B-E channelnumber drive track sector 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#3" 

120 PRINT* 1, "B-E 2 17 12" 

Here buffer 3 ($600-$6FF) is assigned to channel 2. The 
contents of track 17 sector 12 is loaded into this buffer 
and there the machine language program is executed. 

The block-execute command is a combination of the block-read 
and memory-execute commands. Examples of the design of 
machine language programs to execute in the DOS are found in 
section 2.4 by the memory commands. 
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2.3 Uses of direct access 

What do the direct access commands permit us to do? 

Here is a sample of their use: 

By manipulating individual sectors you can make changes to 
the BAM sector (Track 18, Sector 0) such as changing the 
diskette name or ID. 

You can make changes to the DIRECTORY (beginning at Track 
18, Sector 1). Each file entry in the directory has unused 
space. You can use the unused space to store additional 
information. 

You can change file names in the directory by using direct 
access commands. 

You can follow the "chaining" of the blocks in a file to 
determine if the file is intact. 

You can CLOSE an unclosed file by setting bit 7 of the file 
type indicator in the directory. For example, you can change 
the file type indicator from $02 to $82. Normally these 
files are indicated in the directory with an asterisk; after 
the above change the asterisk will disappear. 

Each file entry also contains a "lock" which disallows 
deletion (SCRATCH command). If you set bit 6 of the file 
type then the file is said to be locked and not available 
for deletion. These entries have the < symbol after the type 
designation in the directory listing. Using this bit of 
knowledge, you can protect important programs on your 
diskette from accidental erasure. More information on this 
topic is found in section 4.1. 

If you are interested in making such changes, you may want 
to read an entire sector and display it on the screen, 
change it, and write it back again. Such a program called 
the .DI.SK MONITOR is described in section 4.6. Before you 
begin with such experiments, nowever, you should make a copy 
of your diskette. A directory or BAM error can result in the 
loss of the entire diskette contents. 

Have you ever accidentally scratched a program or file from 
a diskette? As long as you haven't written any other 
programs or data to the diskette, you can recover this 
scratched file. Scratching a file simply sets the file type 
to in the directory and frees the allocated blocks. You 
need only search the directory entries for the file and 
restore the file type: $81 for SEP, $82 for PRG, $83 for 
USR, and $84 for REL. After restoring the file type, you 
should use the VALIDATE command to reallocate the blocks 
again (for example: OPEN 1,8 ,15:PRINT#1 ,"V0"). 
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Other uses of direct access can provide the means for 
creating new data structures that the DOS normally does not 
recognize. You can undertake the management of the new file 
yourself, and use the direct access commands for reading and 
writing. Such a data structure is the ISAM file. ISAM is an 
abbreviation for Indexed sequential Access Method. Witn an 
ISAM file, you can directly access each record, similar to 
the relative file. However, access is not by the record 
number, however, but by a key or Index. This index is a 
field within the record. If, for example, a record consists 
of 5 fields, last name, first name, street, city/state and 
zip code, last name can be defined as the access key. To to 
read the record Muller, the comniand is simply 'read record 
"Muller"'. We need not concern ourselves with record number 
or other ordering criteria and can select which record we 
want to read, change, write or erase with clear text. In 
such an ISAM file system, the index is usually saved 
separately, together with the information where the data 
record can be found on the disk. Such an ISAM file 
management with very powerful additions as described here, 
is found along with other features in the program 
development system MASTER 64, also available for the 
Commodore 64 from Abacus Software. 
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2.4 Accessing the DOS - The Memory Commands 

In section 2.2.6 we saw a way to load a program into DOS 
memory and execute it. With the memory commands, we can 
access each byte of the DOS and execute programs in RAM and 
ROM. For instance, we can access the work space of the DOS 
and read the number of free blocks on the disk or get the 
disk name from the BAM buffer. By writing into the DOS RAM 
we can change constants such as the device number of the 
drive or the number of read attempts for a block until an 
error message results. Furthermore, we can execute routines 
inside the DOS memory. These can be DOS ROM routines or your 
own, that are stored in a buffer and executes there. Of 
course this presumes knowledge of 6502 machine language and 
of the method of operation of the DOS. We hope this book is 
be helpful for the latter. Now follows a description of the 
commands and examples of their use. 



2.4.1 The Memory- Read Command M-R 

Using this command, you can access each byte of the DOS. The 
memory-read command can be shortened to M-R. The memory-read 
command is transmitted over the command channel. The byte 
read is then returned over the command channel where it can 
be retrieved with GET#. The syntax of the command looks like 
this: 

M-R CHR$(LO) CHR$(HI) 

LO and HI signify the low and high bytes of the address in 
the DOS that should be read. The following program asks for 
an address and reads the contents of the address out of the 
DOS. 

100 INPUT"ADDRESS ";A 

110 HI = INT (A/256) 

120 LO = A-256*HI 

130 OPEN 1,8,15 

140 PRINTU, "M-R" ;CHR$(LO) ;CHR$(HI) 

150 GET#1,A$ 

160 PRINT ASC(AS+CHR$(0)) 

For instance, if we want to know the number of free blocks 
on a diskette, we don't have to read the entire directory, 
rather we can read the appropria'. . bytes directly from the 
DOS storage. This may be necessary it files are to be 
established by a program and you don't know if there is 
enough space on the disk. 

100 OPEN 1,8, 15, "10" 

110 PRINT#1, "M-R" CHR$(250) CHRS ( 2 ) 

120 GET#1, A$ : IF AS="" THEN A$=CHR$(0) 
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130 PRINT#1, "M-R" CHR$(252) CHR$ ( 2 ) 

140 GET#1, BS : IF B$="" THEN B$=CHRS(0) 

150 PRINT ASC(A$) + 256 * ASC(B$) "BLOCKS FREE" 

160 CLOSE 1 

With this syntax, an M-R command must be given for each byte 
that is to be read. As you can gather from the DOS listing 
and through checking and verifying, one can read more than 
one byte at a time with a M-R command. You need only give 
the number of bytes to be read as the third parameter: 

M-R CHR$(LO) CHR$(HI) CHR$( NUMBER) 

We can use this to read the name of a diskette from the BAM 
buffer storage. Before this can be done, the diskette must 
be initialized so that the current diskette name is stored 
in the buffer at address $700, out of which we will read the 
name of the disk with the M-R command. 

100 OPEN 1,8,15, "10" 

110 PRINT#1, "M-R" CHR$(144) CHRS(7) CHR$(16) 

120 INPUT#1, AS 

130 PRINT A$ 

This is a simple way to read the name of the diskette (16 
characters padded with shifted spaces (CHR$(160)). With this 
you can check if the correct diskette is in the drive. 

The disk buffer can also be read using this method. It also 
allows parts of the DOS to be manipulated by copying the 
contents of the ROM to a buffer where it can be changed and 
executed. This is explained in the next two sections. 



2.4.2 The Memory-Write Command M-W 

The complement command of memory-read is the command to 
write data in the DOS storage memory-write or M-W. Writing 
is allowed only to DOS RAM - page zero, stack, and buffers. 
It is possible to send several bytes with one command. The 
syntax look like this: 

M-W CHR$(LO) CHR$(HI) CHR$( NUMBER) CHR$(DATA1) CHR$(DATA2J 

The number of bytes as specified by NUMBER can be 
transmitted, theoretically 255, but because the input buffer 
holds only 40 characters, the number of bytes is limited to 
34. A possible use of this command is to change the address 
number (see program 'DISK ADDRESS CHANGE', section 4.2.3). 
The address is stored in two memory locations in page zero. 
The device number plus $20 (32 decimal) is stored in address 
$77 (119 decimal) for LISTEN, for receiving data from the 
computer. The address immediately following contains the 
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device number plus $40 (64 decimal) for TALK, for sending 
data to the computer. Because the addresses are saved 
separately. It is possible to use different send and receive 
addresses. In tne following example, the receive address is 
set to 9 and the send address to 10. 

100 OPEN 1,8,15 

110 PRINT#1, "M-W" CHR$(119) CHR$ ( ) CHR$ ( 2 ) 

CHR$(9+32) CHR$( 10+64) 

120 CLOSE 1 

140 OPEN 1,9,15 

150 OPEN 2,10,15 

160 PRINT#1."I0" 

170 INPUT#2,A$,B$,C$,D$ 

180 PRINT AS" ,"B$" ,"C$","D$ 

00, OK, 00, 00 

Programs cannot be loaded this way because the DOS will try 
to load the program using the same address that the filename 
was sent under. 

Changing the device number is necessary if you want to use 
more than one disk drive with a single computer. To this 
end, change the device address of the second drive to 9. 
This software change remains in effect only until a reset 
(for example, turning the drive off). If the change needs to 
be permanent, you can change the with DIP switches or cut 
the circuit board jumper inside the drive. 

Because many parameters of the DOS are in RAM, you can make 
extensive changes to the function of the DOS, such as the 
step size, with which the number of sectors per track is 
determined (address $69 (105 decimal), normally contains 
10). We can also specify the number of attempted reads until 
an error results (address $6A (106 decimal), contains 5). 
More addresses of parameters can be found in section 3.1.2. 



2.4.3 The Memory-Execute Command M-E 

Using this command you can call up and execute machine 
language programs in the DOS memory. The memory-execute 
command can be shortened to M-E. The programs must end with 
RTS (Return from Subroutine, $60). The syntax of the 
command: 

M-E CHR$(LO) CHRS(HI) 

Again, LO and HI are the low and high bytes of the starting 
address of the machine language routine. It is possible to 
call up routines in the DOS ROM as well as our own routines 
written to a buffer with M-W and there executed. As an 
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example, you can call up a routine that creates an error 
message. For example, address $EFC9 is the entry point for 
message 72, "DISK FULL". The example looks like this: 

100 OPEN 1,8,15 

110 PRINT#1,"M-E" CHR$(201) CHR$(239) 

120 INPUT#1,A$,B$,C$,D$ 

130 PRINT A$ "," B$ ■'," C$ " , " D$ 

In line 110, the address SEFC9 is divided into a low byte of 
$C9 (201) and high byte of $EF (239) and sent as the 
parameters of the M-E command. Then the error channel is 
read and the message displayed. 

72,DISK FULL, 00, 00 

If you want to run your own programs in the 1541 drive, the 
program should be written to a buffer and there called with 
M-E. Should this program be used more often, the contents of 
the buffer can be written to a block on the diskette. It can 
then be executed with the B-E command, which loads the 
contents of the block in the buffer and then automatically 
starts the routine. As a suggestion for your own program in 
DOS, you can display the directory in a different form, with 
additional parameters, similar to the program in section 
4.1.1. In addition, you could count the number of files on 
the disk and display that. Using such a routine you can get 
a much clearer understanding of how the directory is created 
in the DOS listing. If you are clear on the matter of the 
new directory format, you are ready to take the additional 
parameters from the directory entries and assemble them in 
the desired format. 



2.4.4 The User Commands U 

Using the USER commands there are two possible ways of 
executing programs in the drive. The user commands have the 
following syntax: 

UX 

X can be a letter from A to J or a digit from 1 to 9 or ':' 
(which takes the place of 10). When a command is called, a 
jump is made to the following addresses in DOS: 

substitute for 'Block-Read' 
substitute for 'Block-Write' 



UA 


Ul 


$CD5F 


UB 


U2 


$DC97 


UC 


U3 


$0500 


UD 


U4 


$0503 


UE 


U5 


$0506 


UF 


U6 


$0509 


UG 


U7 


S050C 
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UH 


U8 


S050F 


UI 


U9 


$FF01 


UJ 


U: 


SEAAO 



reset 

You are already acquainted with the commands Ul and U2 (also 
UA and UB); they serve as substitutes for BLOCK-READ and 
BLOCK-WRITE. The commands U3 to U8 (UC to UH) jump to 
addresses within buffer 2 (address $500 (1280) - see section 
2.1). If you want to use several commands, a jump table to 
individual routines can be placed there; if only one user 
command (U3) is used, the program can begin directly at 
$500. 

The user command UJ jumps to the reset vector; the disk 
drive is then reset. 

100 OPEN 1,8,15 

110 PRINT#1,"UJ" 

120 FOR 1=1 TO 1000 : NEXT 

130 GET#1,A$ : PRINT A$ : IF ST<>64 THEN 130 

73,CBM DOS V2.6 1541,00,00 

Line 1.20 waits for the reset to take place. Then the 
initialization message is retrieved in line 130. 

By using the user commands, parameters can be passed to the 
routines. The complete command string is put in the input 
buffer at $200 (512). Possible parameters are addresses, 
command codes, and filenames. This way, the user commands 
can be utilized to expand the commands of the disk or to 
realize a new data structure. Whole user commands can 
replace the M— E command with its corresponding addresses; 
the user-call is shorter and clearer. 
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Chapter 3: Technical Information 

3.1 The Construction of the VIC 1541 



3.1.1 Block Diagram of the Disk Drive 
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3.1.2 DOS Memory Map - ROM, RAM, I/O 

Memory map of the VIC 1541 disk drive 



65535 



49152 



16K 
Control system 



$FFFF 



SC000 



7183 
7168 



VIA Disk Control 



$1C0F 
$1C00 



6159 
6144 



VIA serial bus 



$180F 
51800 



2047 




$07FF 



$0000 
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Layout of the I/O Ports (VIA 6522) 

VIA 6522 1, Port for Serial Bus 

S1800 Port B 

$1801 Port A 

$1802 Direction of Port B 

$1803 Direction of Port A 

$1805 Timer 



PB 


0: 


DATA IN 


PB 


1: 


DATA OUT 


PB 


2: 


CLOCK IN 


PB 


3: 


CLOCK OUT 


PB 


4: 


ATN A 


PB 


5,6: 


Device address 


CB 


2: 


ATN IN 



VIA 6522 2, Port for Motor and Read/Write Head Control 

S1C00 Port B, control port 

$1C01 Port A, data to and from read/write head 

$1C02 Direction of Port A 

$1C03 Direction of Port B 



PB 
PB 1 
PB 2 
PB 3 
PB 4 



STP I 

STP step motor for head movement 

MTR drive motor 

ACT LED on drive 

WPS Write Protect Switch 



PB 7 : SYNC 

CA 1: Byte ready 

CA 2: SOE 
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The Layout of the Important Memory Locations 



$00 Command code for buffer 

1 $01 command code for buffer 1 

2 $02 Command code for buffer 2 

3 $03 Command code for buffer 3 

4 S04 command code for buffer 4 

6 $06-$07 Track and sector for buffer 

8 $08-309 Track and sector for buffer 1 

10 $0A-$0B Track and sector for buffer 2 

12 $0C-$0D Track and sector for buffer 3 

14 $0E-$0F Track and sector for buffer 4 

18 $12-$ 13 ID for drive 

20 $14-$15 ID for drive 1 

22 $16-$17 ID 

32 $20-$21 Flag for head transport 

48 $30-$31 Buffer pointer for disk controller 

57 $39 Constant 8, mark for beginning of data 

block header 

58 $3A Parity for data buffer 

61 $3D Drive number for disk controller 

63 $3F Buffer number for disk controller 

67 $43 Number of sectors per track for 

formatting 

71 $47 Constant 7, mark for beginning of data 

block header 

73 $49 Stack pointer 

74 $4A Step counter for head transport 

81 $51 Actual track number for formatting 

105 $69 Step size for sector division (10) 

106 $6A Number of read attempts (5) 

111 $6F-$70 Pointer to address for MSB commands 

119 $77 Device number + $20 for listen 

120 $78 Device number + $40 for talk 

121 $79 Flag for listen (1/0) 

122 $7A Flag for talk (1/0) 

124 $7C Flag for ATN from serial bus receiving 

125 $7D Flag for EOI from serial bus 

127 $7F Drive number 

128 $80 Track number 

129 $81 Sector number 

130 $82 Channel number 

131 $83 Secondary address 

132 $84 Secondary address 

133 $85 Data byte 

139 $8B-$8D Work storage for division 

148 $94-$95 Actual buffer pointer 

153 $99-$9A Address of buffer $300 

155 $9B-$9C Address of buffer 1 $400 

157 $9D-$9E Address of buffer 2 $500 

159 S9F-SA0 Address of buffer 4 $600 

161 $A1-$A2 Address of buffer 5 $700 

163 $A3-$A4 Pointer to input buffer $200 

165 $A5-$A6 Pointer to buffer for error message $2D5 
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181 $B5-$BA Record # lo, block # lo 

187 $BB-$C0 Record # hi, block # hi 

193 $C1-$C6 Write pointer for rel. file 

199 $C7-$CC Record length for rel. files 

212 $D4 Pointer in record for rel. file 

213 $D5 Side sector number 

214 $ D6 Pointer to data block in side sector 

215 $D7 Pointer to record in rel. file 
2 31 SE7 File type 

249 $F9 Buffer number 

256-325 S100-S145 Stack 

512-552 $200-$228 Buffer for command string 

586 $24A File type 

600 $258 Record length 

6 °1 $259 Track side-sector 

602 $25A Sector side-sector 

628 $274 Length of input line 

632 $278 Number of file names 

663 $297 File control method 

640-644 $280-$284 Track of a file 

645-649 $285-$289 Sector of a file 

725-761 $2D5-$2F9 Buffer for error message 

762/764 $2FA/$2FC Number of free blocks 

768-1023 $300-$3FF Buffer 

1024-1279 $400-$4FF Buffer 1 

1280-1535 $500-$5FF Buffer 2 

1536-1791 $600-$6FF Buffer 3 

1792-2047 S700-S7FF Buffer 4 
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3.2 Operation of the DOS - An Overview 

The VIC-1541 is an intelligent disk drive with its own 
microprocessor and control system (Disk Operation System, 
DOS). This means that no memory space or processing time is 
taken from the computer. The computer needs only transmit 
commands to the disk drive, which it then executes on its 
own. 

The disk performs three tasks simultaneously: Firstly, it 
manages data traffic to and from the computer. Secondly, it 
interprets the commands and performs the management of files 
and the associated communications channels and block buffer. 
Thirdly, it handles the hardware-oriented related functions 
of the disk drive - formatting, reading and writing, etc. 

These tasks are carried out simultaneously by the 6502 
microprocessor in the VIC 1541. This is possible with the 
help of the interrupt technique. Only In this way can three 
tasks be executed simultaneously. 

Most of the DOS is concerned with interpreting and executing 

the transmitted commands. The reception of data and commands 
from the computer is controlled by interrupts. If the 
computer wants to talk to a peripheral device, it sends a 
pulse along the ATN line (ATteNtion, see section 5.1). This 
generates an interrupt at the disk drive. The DOS stops its 
current task and notices that the computer wants to send 
data. The DOS then finishes the original task. After that, 
the DOS will accept further data and commands from the the 
computer. If the command is finished, the DOS stays in a 
wait loop until new commands arrive from the disk. 

The execution of a command at this level is limited to the 
logical processing of the command, the management of the 
communications channel to and from the computer and the 
preparation and retrieval of data to be written or read, 
respectively. The tasks of a disk controller, formatting 
diskettes and writing and reading individual blocks, must 
also be performed by the processor. 

These tasks are again interrupt controlled. Regular programs 
in the disk are interrupted every 14 milliseconds by a 
built-in timer, and control branches to a program that 
fulfills the tasks of a disk controller. Communications 
between the two independent programs is handled through a 
common area of memory, in which the main program places 
codes for the disk controller program. If the interrupt 
program is active, it looks at the memory locations to 
determine which activities are demanded, such as formatting 
a diskette, if this is the case, the drive and head motors 
are set in motion. At the end of the interrupt routine, the 
main program examines the memory locations to determine if 
the task was carried out by the disk controller, or if it 

104 



Anatomy of the 1541 Disk Drive 

must wait yet. In this way, the main program is informed in 
case of an error, such as a read error or if a write protect 
tab is present. The main program can then react 
appropriately and display the error message, for example. 

In the large CBM disks, two 6504 microprocessors are used as 
a disk controller. Communication again occurs over a common 
area of memory. 

An overview of the storage layout of the DOS such as the I/O 
primitives for managing the diskette and serial bus can be 
found in the previous section. 

This overview of the work of the DOS is naturally just a 
rough outline. If you want more exact information, refer to 
the DOS listing of the VIC 1541 in section 3.5, in which the 
complete 16K control system is documented. 
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3.3 The Structure of the VIC 1541 Diskette 



The diskette of the 1541 is divided into 35 tracks. Each 
track contains from 17 to 21 sectors. The total number of 
sectors is 683. Because the directory occupies track 18, 664 
data are available for use, each containing 256 bytes. The 
tracks are layed out as follows: 



TRACK 



NUMBER OF SECTORS 



1 TO 17 

18 TO 24 

25 TO 30 

31 TO 35 



21 
19 
18 

17 



The varying number of sectors per track is necessitated by 
the shortening of the tracks from the midpoint on. 



3.3.1 The BAM of the VIC 1541 

BAM is an abbreviation for Block Availability Map. The BAM 
indicates whether a block on the diskette is free or 
allocated to a file. After every manipulation of blocks 
(saving, deleting, etc.) the BAM is updated. When the BAM 
indicates that a file to be saved requires more blocks than 
are available, an error message is given, when a file is 
OEPNed, the BAM in the DOS storage is updated, and is 
rewritten to disK when the file is CLOSEd. Commands that 
have a write or delete function read the BAM, update it, and 
rewrite it to the diskette. The BAM is organized as follows 
on track 18 sector 0: 



Track 18, sector 

BYTE : CONTENTS : MEANING 



0,1 



($00-$01) 
($02) 



3 ($03) 
4-143 ($04-$8F) 



$12, $01 s Track and sector of the 1st 
t block of the directory 

$41 : ASCII character 'A'; 
: indicates 1541 format 

$00 : Zero flag for future use 
: Bit map of free and 
: allocated blocks * 



1 = block free; = block allocated 



The bit map of the blocks is organized so that 4 bytes 
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represent the sectors on a track. As can be inferred from 
the following table, the first of the 4 bytes contain the 
number of free blocks in the track. The other 3 bytes (24 
bits) indicate which blocks are free and which are allocated 
in this track. 

Structure of the BAM entry of a track: 



BYTE 



CONTENTS 



Number of available blocks in this track 
Bit map of sectors 0-7 
Bit map of sectors 8-15 
Bit map of sectors 16-23 



4 bytes of a track designation in the BAM: 



: Track 18, 


sector 0, bytes 4-7 (track 1) : 


: 00001010 
: ($0A) 


: 00000000 00000011 11111111 : 
: ($00) ($03) ($FF) : 


: 10 free 
: blocks 


: 1 = free : 
: = allocated : 



Using a simple program, you can read the first byte of each 
track entry in the bit map, add them up and find the total 
number of free blocks on the diskette. 



3.3.2 The Directory 

The directory is the table of contents of the diskette. It 
contains the following information: 

- disk name 

- disk ID 

- DOS version number 

- filenames 

- file types 

- blocks per file 

- free blocks 

This directory is loaded into memory with the command LOAD 
"$",8. A program previously in memory will be destroyed! It 
can be displayed on the screen with the LIST command. 

The directory occupies all of track 18 on the disk. The file 
entries follow the directory header. Each block accommodates 
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a maximum of 8 file entries. Because the BAM and the header 
occupy one block, 18 blocks are left for file entries. A 
total of 144 files may reside on one diskette (18 blocks 
with 8 entries each). 

Format of the directory header: 



Track 18, sector 



BYTE 



CONTENTS : MEANING 



144-161 ($90-$Al) 

162,163 ($A2-$A3) 
164 ($A4) 

165,166 ($A5-$A6) 

167-170 ($A7-$AA) 
171-255 ($AB-SFF) 







Disk name (padded with 






shifted spaces) 






Disk ID marker 


$A0 




Shifted Space 


$32 


$41 


ASCII characters "2A" 
( format) 


$A0 




Shifted Space 


$00 




not used, filled with 



* Bytes 180 to 191 have the contents "BLOCKS FREE" on 
many diskettes 



The Diskette Name: 

The name of the diskette can be a maximum of 16 characters 
in length and is established when the diskette is formatted. 
If fewer then 16 characters are given, the rest is filled 
with shifted spaces ($A0). The following BASIC routine reads 
the name and saves it in the string variable DN$: 



100 OPEN 15, 8, 15, "10" 



110 
120 



OPEN 2,8,2,"#" 
PRINT#15,"B-R";2; 



130 PRINT#15,"B-P";2;144 



140 


DN$="" 


150 


REM LOOP TO READ 


160 


FOR 1=1 TO 16 


170 


: :GET#2,X$ 


180 


: :IF ASC(X$) = 160 


190 


::DN$=DN$+X$ 


200 


NEXT I 


210 


CLOSE 2:CLOSE 15 



: REM COMMAND CHANNEL 15 

AND DISK INITIALIZED 
: REM DATA CHANNEL 2 OPENED 
0;18;0 : REM TRACK 18, SECTOR READ 
AND PLACED IN CHANNEL 2 
: REM BUFFER-POINTER TO BYTE 

144 

: REM STRING DN$ IS ERASED 
THE 16 BYTES OF THE NAME 

: REM READ A BYTE 
THEN 200 : REM IGNORE SHIFT SPACE 
: REM BYTE ADDED TO DNS 

: REM CLOSE CHANNELS 



After running the routine, the string DNS contains the disk 
name. 
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Diskette ID: 

The diskette ID is two characters in length and is specified 
when formatting the diskette. The DOS uses this ID to detect 
if a diskette in the drive has been replaced. If so, then 
the DOS performs an INITIALIZE. Initializing a diskette 
loads the BAM into memory in the drive. This way, the actual 
BAM is always in memory, provided the ID given when 
formatting is always different, should this not be the case, 
a diskette must be initialized explicitly by using the 
INITIALIZE command. 



3.3.3 The Directory Format 

Blocks 1 through 19 on track 18 contain the file entries. 
The first two bytes of a block point to the next directory 
block with file entries. If no more directory blocks follow, 
these bytes contain S00 and SFF, respectively. 



Track 18, sector 1 



Byte 



Contents 



0,1 

2-31 

34-63 

66-95 

98-127 

130-159 

162-191 

194-223 

226-255 



(S00,S01) 

(S02-S1F) 
(S22-S3F) 
(S42-S5F) 
(S62-S7F) 
(S82-S9F) 
(SA2-SBF) 
(SC2-SDF) 
($E2-$FF) 



Track and sector number of the 

next directory block 

Entry of 1st file 

Entry of 2nd file 

Entry of 3rd file 

Entry of 4th file 

Entry of 5th file 

Entry of 6th file 

Entry of 7th file 

Entry of 8th file 



Format of a Directory Entry: 

Each file entry consists of 30 bytes, the functions of which 
are described oelow: 
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BYTE 



CONTENTS 




1,2 



21 



(S00) 
(S01,S02) 



3-18 ($03-312) 

19,20 ($13, $14) 



($15) 



22-25 (S16-S19) 
26,27 (S1A-S1B) 

28,29 ($1C-$1D) 



File type 

Track and sector number of the 

first data block 

Filename (padded with "SHIFT SPACE" 

Only used for relative files 

(track and sector of the first 

side-sector block) 
Only used for relative files 
(record length) 
Not used 

Track and sector number of the new 
file when overwritten with the @: 
Number of blocks in the file (low 
byte, high byte) 



File Type Marker: 

Byte of the file entry denotes the file type. Bits 0-2 are 
used to indicate the 5 file types. Bit 7 indicates if the 
file has been CLOSEd properly. Closing a file sets bit 7. An 
unclosed file is denoted with an asterisk in front of the 
file type in the directory listing. If, for example, a 
sequential file "TEST" is opened and the directory is 
listed, this file will be represented like this: 



12 



"TEST" 



*SE0 



If the file is CLOSEd again, the asterisk does not appear in 
future directory listings. If this file remains unclosed and 
later opened, the error message "WRITE FILE OPEN" will 
appear. 

The File Type: 

In order to understand the function of byte in the file 
entry, the file type, a table of all file types follows: 



: File type 


Bit mask opened 


Bit mask cl 


osed : 


: 


7654 3210 


HEX 


7654 3210 


HEX : 


: DELeted 


0000 0000 


SOO 


1000 0000 


$80 : 


: SEOuential 


0000 0001 


$01 


1000 0001 


S81 : 


: ProGram 


0000 0010 


$02 


1000 0010 


$82 : 


: USeR 


0000 0011 


$03 


1000 0011 


$83 : 


: RELative 


0000 0100 


$04 


1000 0100 


S84 : 



Perhaps you have noticed that bits 3-6 have no function. But 
we verified with help from the DOS listing, bit 6 has a 
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function: 

BIT 6 OF THE FILE TYPE DENOTES A PROTECTED FILE1 

If you set this bit to 1, the corresponding file can no 
longer be deleted. This is designated in the directory 
listing with a < next to the file type. Because setting this 
bit requires some complicated commands, you will find a 
program in chapter 4 of this book with which you can 
protect, unprotect, and delete files. 

Track and sector of the first Data Block 

Bytes 1 and 2 of the file entry point to the first data 
block of the file. The first byte contains the track and the 
second the sector number where the file begins. The first 
data block, in turn contains a pointer to the second block 
of the file (also contained in the first two bytes of the 
block). The last data block of the file is indicated by a 
first-byte value of $00. The second byte contains the number 
of bytes used in this last sector. 

This concatenation can be explained with the help of the DOS 
MONITOR, contained in this book: 

>:B0 A0 A0 A0 A0 A0 00 00 00 

>:B8 00 00 00 00 00 00 0B 00 

>:C0 00 00 81 13 09 54 31 32 T12 

>:C8 2F 53 30 31 A0 A0 A0 A0 /S01 

>:D0 A0 A0 A0 A0 A0 00 00 00 

>:D8 00 00 00 00 00 00 06 00 

>:E0 00 00 82 10 00 44 49 53 DIS 

>:E8 4B 20 41 44 44 52 20 43 K ADDR C 

>:F0 48 41 4E 47 45 00 00 00 HANGE... 

>:F8 00 00 00 00 00 00 04 00 

This is an extract from the directory (track 18, sector 1) 
of the TEST/DEMO diskette. You can follow the organization 
of the file DISK ADDP CHANGE. The entry of this file begins 
at byte SE2 and ends with byte SFF. This is a PRG file, 
which can be recognized by the file type $82 in byte $E2. 
This file comprises 4 blocks on the disk. This is evident 
from bytes $FE and $FF. Bytes $E3 and $E4 of the entry 
address the first data block of the file ($10, $00, 
corresponding to track 16, sector 0). 

Let's look at a section of this block: 

>:00 10 0A 01 04 OF 04 64 00 $. 

>:08 97 35 39 34 36 38 2C 31 .59468,1 

>:10 32 00 39 04 6E 0D 99 22 2.9...." 

>:18 93 13 11 11 11 11 44 52 DR 

>:20 49 56 45 20 41 44 44 52 IVE ADDR 

>:28 45 53 53 20 43 48 41 4E ESS CHAN 
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>:30 47 45 20 50 52 4F 47 52 GE PROGR 

>:38 41 4D 22 00 59 04 6F 00 AM''.Y./. 

>:40 99 22 11 54 55 52 4E 20 .".TURN 

>:48 4F 46 46 20 41 4C 4C 20 OFF ALL 

This block contains the first part of the program. It is 
stored on the diskette exactly as it is stored in the 
computer's memory. The BASIC commands are converted to one 
byte codes called tokens. This is why only the text can be 
recognized in the right hand translation of the hexadecimal 
codes. The first two bytes of this data block indicate the 
second data block ($10 and S0A, track 16, sector 10) from 
with this section follows: 



> 


:00 


10 


14 


34 


30 


00 


ID 


05 


A0 


..40... 


> 


:08 


00 


8D 


20 


33 


30 


30 


3A 


20 


.. 300: 


> 


:10 


8F 


20 


46 


49 


4E 


44 


20 


44 


. FIND D 


> 


:18 


52 


49 


56 


45 


20 


54 


59 


50 


DRIVE TYP 


> 


:20 


45 


00 


39 


05 


AA 


00 


8D 


20 


E.9. .. 


> 


:28 


36 


30 


30 


3A 


20 


8F 


20 


43 


600: . C 


> 


:30 


48 


41 


4E 


47 


45 


20 


41 


44 


HANGE AD 


> 


:38 


44 


52 


45 


53 


53 


00 


68 


05 


DRESS. ( . 


> 


:40 


B4 


00 


99 


22 


11 


54 


48 


45 


..".THE 


> 


:48 


20 


53 


45 


4C 


45 


43 


54 


45 


SELECTE 



The program is continued in this block. Bytes $00 and $01 
point to the third data block of the file ($10, $14, track 
16, sector 20) : 

>:00 10 08 31 30 30 30 00 23 ..1000.# 

>:08 06 54 01 8B 20 43 B2 32 .T.. C 2 

>:10 35 34 20 A7 20 4D 54 B2 54 MT 

>:18 31 31 39 3A 20 8F 3A 20 119: .: 

>:20 32 30 33 31 20 56 32 2E 2031 V2 . 

>:28 36 00 45 06 5E 01 8B 20 6.E. .. 

>:30 43 B2 32 32 36 20 A7 20 C 226 

>:38 4D 54 B2 35 30 3A 20 8F MT 50: . 

>:40 3A 20 32 30 34 30 20 56 : 2040 V 

>:48 31 2E 32 00 67 06 68 01 1.2. .(. 

This is the next to the last block of the program. You have 
no douDt recognized that the data blocks are in the same 
track, but are not contiguously. The first data block is 
block 0. The next is block 10, 10 blocks from the first 
block. 9 blocks are always skipped between data blocks of a 
file. The third data block is block number 20. The DOS 
begins again with the first block if the calculated block 
oversteps the highest block. Because track 16 contains 21 
blocks, the last data block is block number 8. The first two 
bytes of this third block address it: 

>:00 00 F8 5A 42 B2 31 20 A7 . ZB 1 

>:08 20 34 34 30 00 14 07 A3 440... 

>:10 01 8B 20 53 54 20 A7 20 .. ST 

>:18 31 30 30 30 00 45 07 B8 1000. E. 
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>:20 01 98 31 35 2C 22 4D 2D ,.15,"M- 

>:28 52 22 C7 28 31 37 32 29 R" (172) 

>:30 C7 28 31 36 29 3A Al 23 (16): # 

>:38 31 35 2C 5A 43 24 3A 5A 15,ZC$:Z 

>:40 43 B2 C6 28 5A 43 24 AA C F(ZC$ 

>:48 C7 28 30 29 29 00 66 07 G(0)).&. 

Here the end of the program is marked Dy tne value $00 in 
byte $00. Byte $01 gives the number of bytes in this last 
block that belong to the program. ($F8 corresponds to 248 
bytes). Now we can find out the size of the program: 

3 blocks with 254 bytes each = 762 bytes 
last block = 248 bytes 



Size of the program 1100 bytes 



The Filename: 

The filename is contained in bytes 3-18 of the file entry. 
It consists of a maximum of 16 characters. Should the name 
be shorter than 16 characters, the rest of the name is 
padded with shifted spaces ($A0). 

Track and Sector of the new File for "Overwriting": 

If a file is overwritten by using the £:, the new file is 
first completely saved. No filename entry is made in the 
directory for this file because the file already exists 
under this same name. Instead the address of the first block 
of the new file is placed in bytes 26 and 27 of the filename 
entry. If the new program is removed, the old one is 
deleted, which merely designates the blocks allocated to the 
file as free in the BAM. Now the address of the first data 
block of the new file is placed into the filename entry in 
bytes 1 and 2 is used and the file is "overwritten". 

Number of Blocks in the File: 

The length of a file is given in bytes 28 and 29 of its file 
entry. A file consists of at least one block and as many as 
664 docks. The first byte is tne low Dyte, and tne second 
is the high byte, if, for example, you discovered the file 
length $1F,$00 with the DISK MONITOR, the file consists of 
31 blocks. 
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3.4 The Organization of Relative Files 

Relative files differ from sequential files in that each 
data record can be accessed directly by a record number. 
The' 1541 DOS takes care of most of the tasks required to 
support relative records. Let's take a closer look at the 
organization of a relative file. 

First OPEN a relative file with a record length of 100: 

OPEN 2,8,2, "REL-FILE,L,"+CHR$(100) 

Now write data record number 70: 

OPEN 1,8,15 

PRINT* 1 , " P"+CHRS ( 2 ) +CHRS ( 70 ) +CHRS ( ) +CHRS ( 1 ) 

PRINT* 2, "DATA FOP RECORD 70" 

CLOSE 2 : CLOSE 1 

The directory entry then looks like this: 

>:00 .. .. 84 11 00 52 45 4C ...REL 

>:08 2D 46 49 4C 45 A0 A0 A0 -FILE 

>:10 A0 A0 A0 A0 A0 11 0A 64 . .$ 

>:18 00 00 00 00 00 00 ID 00 

The first byte $84 denotes a relative file. The next two 
bytes denote the first track and sector of the data ($11, 
$00; track 17 sector 0); exactly as with a sequential file. 
As usual, the name of the file follows (16 characters, 
padded with shifted spaces, $A0). Following are two fields 
not used with sequential files. The first field is a two 
byte pointer to the track and sector of the first side- 
sector block. A side-sector contains the pointers to each 
data record and is described more in detail later ($11, $0A: 
track 17, sector 10). The second field is a byte which 
contains the record length, a value between 1 and 254, in 
our case $64 (100). 

The convenience of being able to access each record 
individually requires a definite length for each record thet 
must be defined when establishing a relative file. The rest 
of the fields in the directory entry have the usual 
significance; the last two bytes contain the number of 
blocks in the file (lo and hi byte, $1D and $00 (29)). 

What does such a side-sector block look like and what is its 
function? 

The side-sector blocks contain the track and sector pointers 
to the individual data records. For example, if we want to 
read the 70th record in the relative file, the DOS consults 
the side-sector block to determine which track and sector 
contains the record and then read this record directly. As 
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a result, you can read the 70th record of the file without 
having to read the entire file. Now let's take a look at the 
exact construction of a side-sector block. This side-sector 
block is from our previous file. 



>s00 


00 


47 


00 


64 


11 


0A 


00 


00 


• G.$ 


>:08 


00 


00 


00 


00 


00 


00 


00 


00 




>:10 


11 


00 


11 


0B 


11 


01 


11 


oc 




>:18 


11 


02 


11 


0D 


11 


03 


11 


0E 




>:20 


11 


04 


11 


OF 


11 


05 


11 


10 




>:28 


11 


06 


11 


11 


11 


07 


11 


12 




>:30 


11 


08 


11 


13 


11 


09 


11 


14 




>:38 


10 


08 


10 


12 


10 


06 


10 


10 




>:40 


10 


04 


10 


0E 


10 


02 


10 


OC 




>:48 


00 


00 


00 


00 


00 


00 


00 


00 




>:50 


00 


00 


00 


00 


00 


00 


00 


00 




etc. 





















The first two bytes point to the track and sector of the 
next side-sector block, as usual. In our case, no further 
side-sector blocks exist ($00) and only $47 = 71 bytes of 
this sector are used. Byte 2 contains the number of the 
side-sector block, 00. A relative file can contain a maximum 
of 6 such blocks; the numbering goes from to 5. The record 
length, $64 (100), is in byte 3. The next twelve bytes 
(bytes 4 through 15) contain the track and sector pointers 
(two bytes each) to the 6 side-sector blocks (00,00 means 
the block is not yet used). Starting at byte 16 ($10) are 
the pointers to the data, and the tracK and sector pointers 
to the first 120 data blocks (in our case, only 28 
pointers). Using tne record number and record length, the 
DOS can calculate in which block the data lies and at which 
position within the block the record begins. Take the 
following example, for instance: 

To read the 70th record from the file with a record length 
of 100 characters, you can perform the following calcula- 
tions: 

(70-1) * 100 / 254 

We get a quotient of 27 and a remainder of 42. The DOS now 
knows that the record can be found in the 27th data block at 
the 42+2 or 44th position. 

Here's an explanation of the calculation. Each block 
contains 256 bytes, the first two of which are used as a 
pointer to the next block. 254 bytes are then left over for 
data storage. We can calculate the byte number from the 
start of the file (which is record 1) from the record number 
and record length. If we divide this value by the number of 
bytes per block, we get the number of the block containing 
the record. The remainder of the division gives the position 
within the block (add 2, because the first two bytes serve 
as a pointer). If the record overlaps the end of the block, 
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the next block must also be read. 

In our example, the 27th data block lies in track $10 = 16 
and sector SOC = 12. If we read this block, we get the 
following picture: 

00 F3 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 44 41 54 41 ....DATA 

20 46 4E 52 20 52 45 43 FOR REC 

46 52 44 20 37 30 0D 00 ORD 70.. 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

FF 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 FF 00 00 00 

00 00 00 00 00 00 00 00 

If we get a block number greater than 120 from the 
calculation, the pointer can no longer be found on the first 
side-sector block, ratfler in the next side-sector blocks. In 
this case, you divide the block number by 120, the quotient 
being the number of tne side-sector block. The remainder 
gives the location of the pointer within this block. Fcr 
instance, to find record number 425, divide by 120 and get a 
quotient 3, remainder 65. Therefore, you must read side- 
sector block 3 and get the pointer to the 65th data block. 
Between 2 and 4 block accesses are necessary to access a 
record of a relative data file. 

When creating or expanding a relative file, the following 
takes place: 

First, a directory entry is created for the relative file, 
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> 


00 


> 


08 


> 


10 


> 


18 


> 


20 


> 


28 


> 


30 


> 


38 


> 


40 


> 


:48 


> 


50 


> 


:58 


> 


60 


> 


:68 


> 


:70 


> 


:78 


> 


:80 


> 


:88 


> 


:90 


> 


:98 


> 


:A0 


> 


:A8 


> 


:B0 


> 


:B8 


> 


:C0 


> 


:C8 


> 


:D0 


> 


:D8 


9 


:E0 


> 


:E8 


> 


:F0 


> 


:F8 
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containing the record length. Two channels are reserved for 
the relative file, one for the data, the other for the side- 
sectors. If a record pointer is set to a specific record, 
the DOS first checks to see if the record already exists. If 
so, the corresponding block is read and the buffer pointer 
set so that the contents can be accessed. If not, the recoid 
is created. All records preceding this record number that do 
not already exist are also created. The first byte of a new 
record is written to contain $FF (255), and the rest of the 
record is filled with $00. 

If the corresponding record is at the beginning of a block, 
the rest of the block is filled with eiupty records. Each 
time a non-existing record is accessed, the error message 
50, RECORD NOT PRESENT is returned. When writing a new 
record, this is not considered an error, but indicates that 
a new record was created. 

You can use this method for creating a new file if you know 
the maximum number of data records. You simply set the 
record pointer to this record and write $FF (CHR$(255)) to 
this record. By allocating a file like this, the error 
message 50 no longer appears. You also know if there is 
sufficient space on the diskette. If not, the error message 
52, FILE TOO LARGE is returned. 

With a maximum of 6 side sectors, a relative file can 
contain 6 * 120 * 254 = 182,880 bytes. In the case of the 
VIC 1541, this is more than the capacity of the whole 
diskette. With the bigger 8050 drive, which contains more 
than 500K of storage, this may present a limitation. But DOS 
version 2.7 has an expansion of the side-sector procedure 
('super side-sector'), with which a relative file mey 
contain up to 23 MB. DOS 2.7 is contained in the CBM 8250 
and the Commodore hard drives as well as the newer 8050 
drives (see section 5.2). 

Because a relative file requires two data channels, and the 
VIC 1541 has only 3 channels available, only one relative 
file can De open at a time. The third channel can still be 
used for a sequential file open at the same time. With the 
larger CBM drives, more channels are available (3 relative 
files open simultaneously, see also section 5.2). 
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3.5 DOS 2.6 ROM LISTINGS 



****************************** turn LED on 



C100 


78 






SEI 






C101 


A9 


F7 




LDA 


#$F7 


erase LED bi 


C103 


2D 


00 


1C 


AND 


$1C00 




C106 


48 






PHA 






C107 


A5 


7F 




LDA 


$7F 


drive number 


C109 


FO 


05 




BEO 


$C110 


0? 


C10B 


68 






PLA 






C10C 


09 


00 




ORA 


#$00 


not drive 0, 


C10E 


DO 


03 




BNE 


$C113 




C110 


68 






PLA 






cm 


09 


08 




ORA 


#$08 


turn LED on 


C113 


8D 


00 


1C 


STA 


$1COO 




C116 


58 






CLI 






C117 


60 






RTS 






****************************** 


turn LED on 


C118 


78 






SEI 






C119 


A9 


08 




LDA 


#$08 




CUB 


0D 


00 


1C 


QRA 


$lCO0 


LED on 


CUE 


8D 


00 


1C 


STA 


$1COO 




C121 


58 






CLI 






C122 


60 






RTS 







****************************** 
C123 A9 00 LDA #$00 
C125 8D 6C 02 STA $026C 
C128 8D 6D 02 STA $026D 
C12B 60 RTS 

****************************** 



erase error flags 



C12C 


78 






SEI 






C12D 


8A 






TXA 




save X register 


C12E 


48 






PHA 






C12F 


A9 


50 




LDA 


#$50 




C131 


8D 


6C 


02 


STA 


$026C 




C134 


A2 


00 




LDX 


#$00 




C136 


BD 


CA 


FE 


LDA 


$FECA f X 


8 


C139 


8D 


6D 


02 


STA 


$026D 




C13C 


0D 


00 


1C 


ORA 


$lCO0 




C13F 


8D 


00 


1C 


STA 


$1C00 


turn LED on 


C142 


68 






PLA 






C143 


AA 






TAX 




get x register back 


C144 


58 






CLI 






C145 


60 






RTS 












rir**************** 


inrernref oommand fi 



C146 A9 00 LDA #$00 
C148 8D F9 02 STA $02F9 
C14B AD 8E 02 LDA $028E 



computer 



last drive number 
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C14E 


85 


7F 




STA 


$7F 


C150 


20 


BC 


E6 


JSR 


$E6BC 


C153 


A5 


84 




LDA 


$84 


C155 


10 


09 




BPL 


$C160 


C157 


29 


OF 




AND 


#S0F 


C159 


C9 


OF 




CMP 


#$0F 


C15B 


F0 


03 




BEO 


$C160 


C15D 


4C 


B4 


D7 


JMP 


$D7B4 


C160 


20 


B3 


C2 


JSR 


SC2B3 


C163 


Bl 


A3 




LDA 


($A3) f Y 


C165 


8D 


75 


02 


STA 


$0275 


C168 


A2 


OB 




LDX 


#$0B 


C16A 


BD 


89 


FE 


LDA 


$FE89,X 


C16D 


CD 


75 


02 


CMP 


$0275 


C170 


F0 


08 




BEO 


SC17A 


C172 


CA 






DEX 




C173 


10 


F5 




BPL 


$C16A 


C175 


A9 


31 




LDA 


#S31 


C177 


4C 


C8 


CI 


JMP 


$C1C8 


C17A 


8E 


2A 


02 


STX 


$022A 


C17D 


E0 


09 




CPX 


#$09 


C17F 


90 


03 




BCC 


SC184 


C181 


20 


EE 


CI 


JSR 


$C1EE 


C184 


AE 


2A 


02 


LDX 


$022A 


C187 


BD 


95 


FE 


LDA 


$FE95,X 


C18A 


85 


6F 




STA 


$6F 


C18C 


BD 


Al 


FE 


LDA 


$FEA1,X 


C18F 


85 


70 




STA 


$70 


C191 


6C 


6F 


00 


JMP 


(S006F) 


*****************************i 


C194 


A9 


00 




LDA 


#$00 


C196 


8D 


F9 


02 


STA 


$02F9 


C199 


AD 


6C 


02 


LDA 


$026C 


C19C 


DO 


2A 




BNE 


$C1C8 


C19E 


A0 


00 




LDY 


#$00 


C1A0 


98 






TYA 




C1A1 


84 


80 




STY 


$80 


C1A3 


84 


81 




STY 


$81 


C1A5 


84 


A3 




STY 


$A3 


C1A7 


20 


C7 


E6 


JSR 


SE6C7 


ClAA 


20 


23 


CI 


JSR 


$C123 


C1AD 


A5 


7F 




LDA 


$7F 


C1AF 


8D 


8E 


02 


STA 


$028E 


C1B2 


AA 






TAX 




C1B3 


?A9 


00 




LDA 


#$00 


C1B5 


!rs 


FF 




STA 


$FF,X 


C1B7 


To 


BD 


CI 


JSR 


SC1BD 


C1BA 


4C 


DA 


D4 


JMO 


SD4DA 


****************************** 


C1BD 


AO 


28 




LDY 


#$28 


C1BF 


A9 


00 




LDA 


#$00 



drive, number 
prepare 'ok" message 
secondary address 



15, command channel 

yes 

to OPEN command 

determine line length and 

erase flags 

get first character 

and store 

11 

commands 

compare to first character 

found? 



not found 

31, 'syntax error' 

number of command words 

command number < 9? 
test for "R", 'S' f and 'N' 
command number 
jump address lo 

]ump address hi 

j ump to command 

prepare error message after 
executing command 



flag set? 

yes, then set error message 

error number 
track number 
sector number 

prepare 'ok' message 

erase error flag 

drive number 

save as last drive number 



erase input buffer 
close internal channel 

erase input buffer 
erase 41 characters 
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C1C1 99 00 02 

C1C4 88 

C1C5 10 FA 

C1C7 60 



STA $0200,Y 

DEY 

BPL $C1C1 

RTS 



****************************** 

C1C8 A0 00 LDY #$00 

C1CA 84 80 STY S80 

C1CC 84 81 STY S81 

C1CE 4C 45 E6 JMP $E645 

****************************** 



C1D1 


A2 


00 




LDX 


#$00 


C1D3 


8E 


7A 


02 


STX 


S027A 


C1D6 


A9 


3A 




LDA 


#$3A 


C1D8 


20 


68 


C2 


JSR 


SC268 


ClDB 


F0 


05 




BEO 


$C1E2 


ClDD 


88 






DEY 




C1DE 


88 






DEY 




C1DF 


8C 


7A 


02 


STY 


S027A 



C1E2 4C 68 C3 JMP $C368 



****************************** 



C1E5 


A0 


00 




LDY 


#$00 


C1E7 


A2 


00 




LDX 


#$00 


C1E9 


A9 


3A 




LDA 


#$3A 


ClEB 


4C 


68 


C2 


JMP 


SC268 


***************************> 


C1EE 


20 


E5 


CI 


JSR 


$C1E5 


C1F1 


DO 


05 




BNE 


$C1F8 


C1F3 


A9 


34 




LDA 


#$34 


C1F5 


4C 


C8 


CI 


JMP 


SC1C8 


C1F8 


88 






DEY 




C1F9 


88 






DEY 




C1FA 


8C 


7A 


02 


STY 


$027A 


C1FD 


8A 






TXA 




C1FE 


DO 


F3 




BNE 


$C1F3 


C200 


A9 


3D 




LDA 


#$3D 


C202 


20 


68 


C2 


JSR 


$C268 


C205 


8A 






TXA 




C206 


FO 


02 




BEO 


SC20A 


C208 


A9 


40 




LDA 


#$40 


C20A 


09 


21 




ORA 


#$21 


C20C 


8D 


8B 


02 


STA 


S028B 


C20F 


E8 






I NX 




C210 


8E 


77 


02 


STX 


$0277 


C213 


8E 


78 


02 


STX 


$0278 


C216 


AD 


8A 


02 


LDA 


$028A 


C219 


FO 


OD 




BEO 


$C228 


C21B 


A9 


80 




LDA 


#$80 


C21D 


OD 


8B 


02 


ORA 


S028B 


C220 


8D 


8B 


02 


STA 


$028B 



$200 to $228 



give error message 
(track & sector) 

track = 

sector = 

error number ace, generate 

error message 

check input line 

pointer to drive number 
* • < 

test line to • : ' or to end 
no colon found? 



point to drive number 

(before colon) 

get drive # and turn LED on 

check input line 
pointer to input buffer 
counter for commas 

test line to colon or to end 

check input line 

test line to ':' or end 

colon found? 

34, 'syntax error' 

set pointer to colon 
position of the drive no. 
comma before the colon 
yes, then 'syntax error' 

check input to '=' 

comma found? 

no 

bit 6 

and set bit and 5 

flag for syntax check 



wildcard found? 
no 



set bit 7 
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C223 


A9 


00 




LDA 


#$00 




C225 


8D 


8A 


02 


STA 


S028A 


reset wildcard flag 


C228 


98 






TYA 




'=' found? 


C229 


PO 


29 




BEP 


$C254 


no 


C22B 


9D 


7A 


02 


STA 


$027A,X 




C22E 


AD 


77 


02 


LDA 


90277 


number of commas before '= 


C231 


8D 


79 


02 


STA 


$0279 




C234 


A9 


8D 




LDA 


#$8D 


shift CR 


C236 


20 


68 


C2 


JSR 


$C268 


check line to end 


C239 


E8 






I NX 




increment comma counter 


C23A 


8E 


78 


02 


STX 


$0278 


store # of commas 


C23D 


CA 






DEX 






C23E 


AD 


8A 


02 


LDA 


$028A 


wildcard found? 


C24A 


PO 


02 




BEO 


$C245 


no 


C243 


A9 


08 




LDA 


#$08 


set bit 3 


C245 


EC 


77 


02 


CPX 


$0277 


comma after '='? 


C248 


PO 


02 




BEO 


$C24C 


no 


C24A 


09 


04 




ORA 


#$04 


set bit 2 


C24C 


09 


03 




ORA 


#$03 


set bits and 1 


C24E 


4D 


8B 


02 


EOR 


S028B 




C251 


8D 


8B 


02 


STA 


$028B 


as flag for syntax check 


C254 


AD 


8B 


02 


LDA 


$028B 


syntax flag 


C257 


AE 


2A 


02 


LDX 


$022A 


command number 


C25A 


3D 


A5 


PE 


AND 


$PEA5,X 


combine with check byte 


C25D 


DO 


01 




BNE 


$C260 




C25P 


60 






RTS 






C260 


8D 


6C 


02 


STA 


$026C 


set error flag 


C263 


A9 


30 




LDA 


#$30 




C265 


4C 


C8 


CI 


JMP 


$C1C8 


30, 'syntax error' 


****************************** 


search characters in input 














buffer 


C268 


8D 


75 


02 


STA 


$0275 


save character 


C26B 


CC 


74 


02 


CPY 


$0274 


already done? 


C26E 


BO 


2E 




BCS 


$C29E 


yes 


C270 


Bl 


A3 




LDA 


($A3),Y 


get char from buffer 



C272 
C27 3 
C276 
C278 
C27A 
C27C 
C27E 
C280 
C283 
C285 
C287 
C288 
C28B 
C28E 
C290 
C292 
C294 
C296 
C299 



02 



C8 

CD 75 
P0 28 
C9 2A 
P0 04 
C9 3P 
DO 03 
EE 8A 02 
C9 2C 
DO E4 
98 

9D 7B 02 
AD 8A 02 
29 7P 
F0 07 
A9 80 
95 E7 
8D 8A 02 
E8 



I NY 
CMP 
BEO 
CMP 
BEO 
CMP 
BNE 
INC 
CMP 
BNE 
TYA 
STA 
LDA 
AND 
BEO 
LDA 
STA 
STA 
I NX 



$0275 

SC2A0 

#$2A 

$C280 

#$3F 

$C283 

S028A 

#$2C 

$C26B 

$027B,X 

S028A 

#$7P 

$C299 

#$80 

SE7,X 

$028A 



compared with char 

found 
i * i 



set wildcard flag 



note comma position 
wildcard flag 

no wildcard 

note flag 

and save as wildcard flag 

inc comma counter 
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C29A 


EO 


04 




CPX 


#$04 


4 commas already? 


C29C 


90 


CD 




BCC 


$C26B 


no, continue 


C29E 


A0 


00 




LDY 


#$00 




C2A0 


AD 


74 


02 


LDA 


$0274 


set flag for line end 


C2A3 


9D 


7B 


02 


STA 


$027B,X 




C2A6 


AD 


8A 


02 


LDA 


$028A 


wildcard flag 


C2A9 


29 


7F 




AND 


#S7F 




C2AB 


F0 


04 




BEO 


$C2B1 


no wildcard 


C2AD 


A9 


80 




LDA 


#$80 




C2AP 


95 


E7 




STA 


$E7,X 


set flag 


C2B1 


98 






TYA 






C2B2 


60 






RTS 






****************************** 


check line length 


C2B3 


A4 


A3 




LDY 


$A3 


ptr to command input buffer 


C2B5 


F0 


14 




BEp 


$C2CB 


zero? 


C2B7 


88 






DEY 






C2B8 


P0 


10 




BEO 


$C2CA 


one? 


C2BA 


B9 


00 


02 


LDA 


$0200, Y 


pointer to input Duffer 


C2BD 


C9 


OD 




CMP 


#$0D 


'CR' 


C2BP 


P0 


OA 




BEO 


$C2CB 


yes, line end 


C2C1 


88 






DEY 






C2C2 


B9 


00 


02 


LDA 


$0200, Y 


preceding character 


C2C5 


C9 


OD 




CMP 


#$0D 


'CR' 


C2C7 


PO 


02 




BEO 


$C2CB 


yes 


C2C9 


C8 






INY 






C2CA 


C8 






INY 




pointer to old value again 


C2CB 


8C 


74 


02 


STY 


$0274 


same line length 


C2CE 


CO 


2A 




CPY 


#$2A 


compare with 42 characters 


C2D0 


AO 


PF 




LDY 


#$PP 




C2D2 


90 


08 




BCC 


$C2DC 


smaller, ok 


C2D4 


8C 


2A 


02 


STY 


$022A 




C2D7 


A9 


32 




LDA 


#$32 




C2D9 


4C 


C8 


CI 


JMP 


$C1C8 


32, 'syntax error' line too 
long 



****************************** 



C2DC 


A0 


00 




LDY 


#$00 


C2DE 


98 






TYA 




C2DP 


85 


A3 




STA 


$A3 


C2E1 


8D 


58 


02 


STA 


$0258 


C2E4 


8D 


4A 


02 


STA 


$024A 


C2E7 


8D 


96 


02 


STA 


$0296 


C2EA 


85 


D3 




STA 


$D3 


C2EC 


8D 


79 


02 


STA 


S0279 


C2RF 


8D 


77 


02 


STA 


$0277 


C2P2 


8D 


78 


02 


STA 


$0278 


C2P5 


8D 


8A 


02 


STA 


$028A 


C2P8 


8D 


6C 


02 


STA 


$026C 


C2PB 


A2 


05 




LDX 


#$05 


C2FD 


9D 


79 


02 


STA 


$0279, X 


C300 


95 


D7 




STA 


$D7,X 


C302 


95 


DC 




STA 


$DC,X 


C304 


95 


El 




STA 


$E1,X 


C306 


95 


E6 




STA 


$E6,X 



erase flag for input command 



pointer to input buffer lo 
record length 
file type 



comma counter 



wildcard flag 
error flag 

flags for line analysis 
directory sectors 
buffer pointer 
drive number 
wildcard flag 
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C308 


9D 


7F 


02 


STA 


$027P, 


X 


track number 




C30B 


9D 


84 


02 


STA 


$0284, 


X 


sector number 




C30E 


CA 






DEX 










C30P 


DO 


EC 




BNE 


$C2FD 








C311 


60 






RTS 










****************************** 


preserve drive number 




C312 


AD 


78 


02 


LDA 


$0278 




number of commas 




C315 


8D 


77 


02 


STA 


$0277 




save 




C318 


A9 


01 




LDA 


#$01 








C31A 


8D 


78 


02 


STA 


$0278 




number of drive numbers 




C31D 


8D 


79 


02 


STA 


$0279 








C320 


AC 


8E 


02 


LDY 


$028E 




last drive number 




C323 


A2 


00 




LDX 


#$00 








C325 


86 


D3 




STX 


$D3 








C327 


BD 


7A 


02 


LDA 


$027A, 


-X 


position of the colon 




C3 2A 


20 


3C 


C3 


JSR 


$C33C 




gee drive no. before colon 




C32D 


A6 


D3 




LDX 


$D3 








C32P 


9D 


7A 


02 


STA 


$027A 




save exact position 




C332 


98 






TYA 










C333 


95 


E2 




STA 


$E2,X 




drive number in table 




C335 


E8 






I NX 










C336 


EC 


78 


02 


CPX 


$0278 




got all drive numbers? 




C339 


90 


EA 




BCC 


$C325 




no, continue 




C33B 


60 






RTS 










****************************** 


search for drive number 




C33C 


AA 






TAX 






note position 




C33D 


A0 


00 




LDY 


#$00 








C3 3P 


A9 


3A 




LDA 


#$3A 




■ • < 




C341 


DD 


01 


02 


CMP 


$0201, 


X 


colon behind it? 




C344 


P0 


OC 




BEO 


$C352 




yes 




C346 


DD 


00 


02 


CMP 


$0200, 


X 


colon here? 




C349 


DO 


16 




BNE 


$C361 




no 




C34B 


E8 






I NX 










C34C 


98 






TYA 










C34D 


29 


01 




AND 


#$01 




drive number 




C34P 


A8 






TAY 










C350 


8A 






TXA 










C351 


60 






RTS 










C352 


BD 


00 


02 


LDA 


$0200, 


X 


get drive number 




C355 


E8 






I NX 










C356 


E8 






I NX 










C357 


C9 


30 




CMP 


#$30 




'0'? 




C359 


P0 


P2 




BEO 


$C34D 




yes 




C35B 


C9 


31 




CMP 


#$31 




•1'? 




C35D 


P0 


EE 




BEO 


$C34D 




yes 




C35P 


DO 


EB 




BNE 


$C34C 




no, use last drive number 




C361 


98 






TYA 






last drive number 




C362 


09 


80 




ORA 


#$80 




set bit 7, uncertain drive 


# 


C364 


29 


81 




AND 


#$81 




erase remaining bits 




C366 


DO 


E7 




BNE 


$C34F 









***************.***..***..**** get drlve number 
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C368 
C36A 
C36D 
C370 
C372 
C375 
C377 
C378 
C37B 
C37D 
C380 
C381 
C383 
C386 
C388 
C38A 
C38C 



A9 00 
8D 8B 02 
AC 7A 02 
Bl A3 
20 BD C3 
10 11 
C8 

CC 74 02 
BO 06 
AC 74 02 
88 

DO ED 
CE 8B 02 
A9 00 
29 01 
85 7P 
4C 00 CI 



LDA 
STA 
LDY 
LDA 
JSR 
BPL 
INY 
CPY 
BCS 
LDY 
DEY 
BNE 
DEC 
LDA 
AND 
STA 
JMP 



#S00 

$028B 

$027A 

($A3) ,Y 

$C3BD 

$C388 

$0274 
$C383 
$0274 

$C370 

$028B 

#$00 

#$01 

$7P 

SC100 



erase syntax flag 

position in command line 

get chars from command buffer 

get drive number 

certain number? 

increment pointer 

line end? 

yes 

search line for drive no. 



drive number 
turn LED on 



****************************** 



C38P 
C391 
C393 
C395 
C397 



A5 7p 
49 01 
29 01 
85 7P 
60 



LDA S7P 
EOR #$01 
AND #$01 
STA $7P 
RTS 



reverse drive number 
drive number 
switch bit 



****************************** 



C398 
C39A 
C39D 
C3A0 
C3A2 
C3A5 
C3A8 



C3B0 
C3B3 
C3B5 
C3B6 
C3B8 
C3B9 
C3BC 



AO 00 

AD 77 02 

CD 78 02 
P0 16 

CE 78 02 

AC 78 02 



C3AB A8 
C3AC Bl A3 
C3AE A0 04 



P0 03 

88 

DO P8 

98 

8D 96 02 

60 



LDY #$00 
LDA $0277 
CMP $0278 
BEO $C3B8 
DEC $0278 
LDY $0278 



B9 7A 02 LDA $027A,Y 



TAY 

LDA (SA3) 

LDY #$04 



D9 BB FE CMP $PEBB,Y 



BEO SC3B8 

DEY 

BNE $C3B0 

TYA 

STA $0296 

RTS 



************************* 



C3BD 
C3BF 
C3C1 
C3C3 
C3C5 
C3C7 
C3C9 



C9 30 
P0 06 
C9 31 
F0 02 
09 80 
29 81 
60 



CMP #$30 
BEP $C3C7 
CMP #$31 
BEO $C3C7 
ORA #$80 
AND #$81 
RTS 



establish file type 

■=' found? 

no 

get pointer 

set pointer to character 
behind '=' 

pointer to buffer 

compare with marker for 

file type 

'S' , 'P' , 'U' , 'R' 

agreement 



note file type (1-4) 



check drive number 
'0' 



no zero or one, then set bit 7 
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****************************** 



C3CA 


A9 


00 




LDA 


#$00 


C3CC 


85 


6F 




STA 


$6P 


C3CE 


8D 


8D 


02 


STA 


$028D 


C3D1 


48 






PHA 




C3D2 


AE 


78 


02 


LDX 


$0278 


C3D5 


68 






PLA 




C3D6 


05 


6F 




ORA 


$6F 


C3D8 


48 






PHA 




C3D9 


A9 


01 




LDA 


#$01 


C3DB 


85 


6P 




STA 


S6F 


C3DD 


CA 






DEX 




C3DE 


30 


OF 




BMI 


$C3EF 


C3E0 


B5 


E2 




LDA 


$E2,X 


C3E2 


10 


04 




BPL 


$C3E8 


C3E4 


06 


6F 




ASL 


$6F 


C3E6 


06 


6P 




ASL 


$6F 


C3E8 


4A 






LSR 


A 


C3E9 


90 


EA 




BCC 


$C3D5 


C3EB 


06 


6F 




ASL 


$6F 


C3ED 


DO 


E6 




BNE 


$C3D5 


C3EF 


68 






PLA 




C3P0 


AA 






TAX 




C3P1 


BD 


3P 


C4 


LDA 


$C43F,X 


C3P4 


48 






PHA 




C3P5 


29 


03 




AND 


#$03 


C3P7 


8D 


8C 


02 


STA 


$028C 


C3PA 


68 






PLA 




C3FB 


0A 






ASL 


A 


C3PC 


10 


3E 




BPL 


SC43C 


C3PE 


A5 


E2 




LDA 


$E2 


C400 


29 


01 




AND 


#$01 


C402 


85 


7F 




STA 


$7F 


C404 


AD 


8C 


02 


LDA 


$028C 


C407 


F0 


28 




BEO 


SC434 


C409 


20 


3D 


C6 


JSR 


SC63D 


C40C 


P0 


12 




BEO 


$C420 


C40E 


20 


8F 


C3 


JSR 


$C38F 


C411 


A9 


00 




LDA 


#$00 


C413 


8D 


8C 


02 


STA 


$028C 


C416 


20 


3D 


C6 


JSR 


$C63D 


C419 


F0 


IE 




BEO 


$C439 


C41B 


A9 


74 




LDA 


#$74 


C41D 


20 


C8 


CI 


JSR 


$C1C8 


C420 


20 


8F 


C3 


JSR 


$C38P 


C423 


20 


3D 


C6 


JSR 


SC63D 


C426 


08 






PHP 




C427 


20 


8F 


C3 


JSR 


$C38F 


C42A 


28 






PLP 




C42B 


F0 


OC 




BEO 


SC439 


C42D 


A9 


00 




LDA 


#$00 


C42F 


8D 


8C 


02 


STA 


$028C 


C432 


FO 


05 




BEO 


$C439 


C434 


20 


3D 


C6 


JSR 


$C63D 



verify drive number 



number of drive numbers 



get syntax flag 



isolate drive number 



initialze drive 

error? 

switch to other drive 



initialize drive 
no error? 

74, 'drive not ready' 



initialize drive 
switch to other drive 
no error? 
nurnber of drives 
initialize drive 
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C4 37 DO E2 

C439 4C 00 CI 

C4 3C 2A 

C43D 4C 00 C4 



BNE SC41B 
JMP SC100 
ROL A 
JMP SC400 



****************************** 
C440 00 80 41 01 01 01 01 81 
C448 81 81 81 42 42 42 42 



error? 

Turn LED on 

drive # from carry after bit 



flags for drive check 



****************************** 


search for file in direct 


C44P 


20 


CA 


C3 


JSR 


$C3CA 


initialize drive 


C452 


A9 


00 




LDA 


#$00 




C454 


8D 


92 


02 


STA 


$0292 


pointer 


C457 


20 


AC 


C5 


JSR 


$C5AC 


read first directory block 


C45A 


DO 


19 




BNE 


$C475 


entry present? 


C45C 


CE 


8C 


02 


DEC 


$028C 


drive number clear? 


C45P 


10 


01 




BPL 


$C462 


no 


C461 


60 






RTS 






C462 


A9 


01 




LDA 


#$01 




C464 


8D 


8D 


02 


STA 


$028D 




C467 


20 


8P 


C3 


JSR 


SC38P 


change drive 


C46A 


20 


00 


CI 


JSR 


SC100 


Turn LED on 


C46D 


4C 


52 


C4 


JMP 


$C452 


and search 


C470 


20 


17 


C6 


JSR 


$C617 


search next file in direc 


C473 


P0 


10 




BEO 


SC485 


not found? 


C475 


20 


D8 


C4 


JSR 


$C4D8 


verify directory entry 


C478 


AD 


8F 


02 


LDA 


$028P 




C47B 


F0 


01 




BEO 


$C47E 


more files? 


C47D 


60 






RTS 






C47E 


AD 


53 


02 


LDA 


$0253 




C481 


30 


ED 




BMI 


$C470 


file not found? 


C483 


10 


F0 




BPL 


$C475 


yes 


C485 


AD 


8P 


02 


LDA 


$028P 




C488 


F0 


D2 




BEO 


$C45C 




C48A 


60 






RTS 






C48B 


20 


04 


C6 


JSR 


SC604 


search next directory bio 


C48E 


P0 


1A 




BEO 


SC4AA 


not found? 


C490 


DO 


28 




BNE 


$C4BA 




C492 


A9 


01 




LDA 


#$01 




C494 


8D 


8D 


02 


STA 


$028D 




C497 


20 


8P 


C3 


JSR 


$C38P 


change drive 


C49A 


20 


00 


CI 


JSR 


$C100 


turn LED on 


C49D 


A9 


00 




LDA 


#$00 




C49P 


8D 


92 


02 


STA 


$0292 




C4A2 


20 


AC 


C5 


JSR 


$C5AC 


read directory block 


C4A5 


DO 


13 




BNE 


$C4BA 


found? 


C4A7 


8D 


8P 


02 


STA 


$028P 




C4AA 


AD 


8P 


02 


LDA 


$028P 




C4AD 


DO 


28 




BNE 


$C4D7 




C4AP 


CE 


8C 


02 


DEC 


$028C 
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C4B2 


10 


DE 




BPL 


SC492 




C4B4 


60 






RTS 






C4B5 


20 


17 


C6 


JSR 


SC617 


next entry in directory 


C4B8 


F0 


FO 




BEO 


$C4AA 


not found? 


C4BA 


20 


D8 


C4 


JSR 


$C4D8 


check entry 


C4BD 


AE 


53 


02 


LDX 


$0253 




C4C0 


10 


07 




BPL 


$C4C9 


file found? 


C4C2 


AD 


8P 


02 


LDA 


S028P 




C4C5 


F0 


EE 




BEO 


$C4B5 


yes 


C4C7 


DO 


OE 




BNE 


SC4D7 


no, then done 


C4C9 


AD 


96 


02 


LDA 


$0296 




C4CC 


P0 


09 




BEO 


$C467 




C4CE 


B5 


E7 




LDA 


$E7,X 


file type 


C4D0 


29 


07 




AND 


#$07 




C4D2 


CD 


96 


02 


CMP 


$0296 


same as desired file type 


C4D5 


DO 


DE 




BNE 


$C4B5 


no 


C4D7 


60 






RTS 






C4D8 


A2 


FP 




LDX 


#$PP 




C4DA 


8E 


53 


02 


STX 


$0253 


flag for data found 


C4DD 


E8 






I NX 






C4DE 


8E 


8A 


02 


STX 


$028A 




C4E1 


20 


89 


C5 


JSR 


$C589 


set pointer to data 


C4E4 


PO 


06 




BEO 


$C4EC 




C4E6 


60 






RTS 






C4E7 


20 


94 


C5 


JSR 


$C594 


pointer to next file 


C4EA 


DO 


PA 




BNE 


$C4E6 


end, then done 


C4EC 


A5 


7P 




LDA 


$7P 


drive number 


C4EE 


55 


E2 




EOR 


SE2,X 




C4P0 


4A 






LSR 


A 




C4P1 


90 


OB 




BCC 


$C4PE 




C4P3 


29 


40 




AND 


#$40 




C4F5 


PO 


FO 




BEO 


$C4E7 




C4P7 


A9 


02 




LDA 


#$02 




C4P9 


CD 


8C 


02 


CMP 


$028C 


search both drives? 


C4PC 


PO 


E9 




BEO 


$C4E7 


yes 


C4PE 


BD 


7A 


02 


LDA 


$027A,X 




C501 


AA 






TAX 






C502 


20 


A6 


C6 


JSR 


$C6A6 


get length of filename 


C505 


AO 


03 




LDY 


#$03 




C507 


4C 


ID 


C5 


JMP 


$C51D 




C50A 


BD 


00 


02 


LDA 


$0200, X 


get chars out of command 


C50D 


Dl 


94 




CMP 


($94) ,Y 


same character in directo 


C50P 


FO 


OA 




BEO 


$C51B 


yes 


C511 


C9 


3F 




CMP 


#$3P 


i -} i 


C513 


DO 


D2 




BNE 


$C4E7 


no 


C515 


Bl 


94 




LDA 


($94) ,Y 




C517 


C9 


AO 




CMP 


#$A0 


shift blank, end of name? 


C519 


PO 


CC 




BEO 


$C4E7 


yes 


C51B 


E8 






I NX 




increment pointer 


C51C 


C8 






INY 
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C51D EC 76 02 CPX $0276 end of the name in the command? 

C520 BO 09 BCE $C52B yes 

C522 BD 00 02 LDA $0200, X next character 

C525 C9 2A CMP #$2A '*' 

C527 F0 0C BEO SC535 yes, file found 

C529 DO DP BNE $C50A continue search 

C52B CO 13 CPY #$13 19 

C52D B0 06 BCS $C535 reached end of name 

C52P Bl 94 LDA ($94) ,Y 

C531 C9 A0 CMP #$A0 shift blank, end of name 

C533 DO B2 BNE $C4E7 not found 

C535 AE 79 02 LDX $0279 

C538 8E 53 02 STX $0253 

C53B B5 E7 LDA $E7,X 

C53D 29 80 AND #$80 

C53F 8D 8A 02 ETA $028A 

C542 AD 94 02 LDA $0294 

C545 95 DD STA $DD,X 

C547 A5 81 LDA $81 sector number of the directory 

C549 95 D8 STA $D8,X enter in table 

C54B A0 00 LDY #$00 

C54D Bl 94 LDA ($94), Y filje type 

C54P C8 INY 

C550 48 PHA 

C551 29 40 AND #$40 isolate scratch-protect bit 

C553 85 6P ETA $6P (6) and save 

C555 68 PLA 

C556 29 DP AND #$DP erase bit 7 

C558 30 02 BMI $C55C 

C55A 09 20 ORA #$20 set bit 5 

C55C 29 27 AND #$27 erase bits 3 and 4 

C55E 05 6P ORA $6P get bit 6 again 

C560 85 6F STA $6P 

C562 A9 80 LDA #$80 

C564 35 E7 AND $E7,X isolate flag for wildcard 

C566 05 6P ORA $6P,X 

C568 95 E7 STA $E7,X write in table 

C56A B5 E2 LDA $E2,X 

C56C 29 80 AND #$80 

C56E 05 7P ORA $7p drive number 

C570 95 E2 STA $E2,X 

C572 Bl 94 LDA ($94) ,Y 

C574 9D 80 02 STA $0280, X first track of file 

C577 C8 INY 

C578 Bl 94 LDA ($94) ,Y 

C57A 9D 85 0? STA $0285, X get sector from directory 

C57D AD 58 02 LDA $0258 record length 

C580 DO 07 BNE $C589 

C582 A0 15 LDY #$15 

C584 Bl 94 LDA (S94),Y record length 

C586 8D 58 02 STA $0258 get from directory 

C589 A9 FP LDA #$PP 

C58B 8D 8P 02 STA $028P 

C58E AD 78 02 LDA $0278 
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C591 
C594 
C597 
C599 

C59A 
C59D 
C59P 
C5A1 
C5A4 
C5A6 
C5A8 
C5AB 

C5AC 
C5AE 
C5B1 
C5B2 
C5B5 
C5B8 
C5BA 
C5BC 
C4BE 
C5C1 
C5C4 
C5C7 
C5C9 

C5CA 
C5CC 
C5CP 
C5D1 
C5D4 
C5D7 
C5DA 
C5DD 
C5DP 
C5E1 
C5E3 
C5E6 
C5E8 
C5EB 
C5ED 
C5F0 
C5P2 
C5P5 
C5P8 
C5FA 

C5PB 
C5FD 
C600 
C602 

C604 



8D 79 02 
CE 79 02 
10 01 
60 

AE 79 02 
B5 E7 
30 05 
BD 80 02 
DO EE 
A9 00 
8D 8P 02 
60 

A0 00 

8C 91 02 
88 

8C 53 02 

AD 8 5 PE 

85 80 

A9 01 

85 81 

8D 93 02 

20 75 D4 

AD 93 02 

DO 01 
60 

A9 07 

8D 95 02 

A9 00 

20 P6 D4 

8D 93 02 

20 E8 D4 

CE 95 02 

A0 00 

Bl 94 

DO 18 

AD 91 02 

DO 2P 

20 3B DE 

A5 81 

8D 91 02 

A5 94 

AE 92 02 

8D 92 02 

PO ID 
60 

A2 01 
EC 92 02 
DO 2D 
PO 13 



STA $0279 
DEC $0279 
BPL $C59A 

RTS 

LDX $0279 
LDA $E7,X 
BMI $C5A6 
LDA $0280, X 
BNE $C594 
LDA #$00 
STA $028P 
RTS 



LDY 
STY 
DEY 
STY 
LDA 
STA 
LDA 
STA 
STA 
JSR 
LDA 
BNE 
RTS 

LDA 
STA 
LDA 
JSR 
STA 
JSR 
DEC 
LDY 
LDA 
BNE 
LDA 
BNE 
JSR 
LDA 
STA 
LDA 
LDX 
STA 
BEO 
RTS 



#$00 
$0291 

$0253 

$PE85 

$80 

#$01 

$81 

$0293 

$D475 

$0293 

$C5CA 



#$07 

$0295 

#$00 

$D4F6 

$0293 

$D4E8 

$0295 

#$00 

($94) ,Y 

$C5PB 

$0291 

$C617 

$DE3B 

$81 

$0291 

$94 

$0292 

$0292 

$C617 



wildcard flag set? 

yes 

track number already set 

yes 



LDX #$01 
CPX $0292 
BNE $C62P 
BEO SC617 



AD 85 FE LDA $PE85 



18, directory track 

sector 1 
read sector 



number of directory entries (-1) 

get pointer from buffer 
save as track number 
set buffer pointer 
decrement counter 

first byte from directory 



get track and sector number 
sector number 

buffer pointer 

buffer pointer to one? 
18, track number of BAM. 
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C607 


85 


80 




STA 


$80 


C609 


AD 


90 


02 


LDA 


$0290 


C60C 


85 


81 




STA 


$81 


C60E 


20 


75 


D4 


JSR 


$D475 


C611 


AD 


94 


02 


LDA 


$0294 


C614 


20 


C8 


D4 


JSR 


$D4C8 


C617 


AD 


FF 




LDA 


#$FF 


C619 


8D 


53 


02 


STA 


$0253 


C61C 


AD 


95 


02 


LDA 


$0295 


C61F 


30 


08 




BMI 


$C629 


C621 


A9 


20 




LDA 


#$20 


C623 


20 


C6 


Dl 


JSR 


$D1C6 


C626 


4C 


D7 


C5 


J MP 


$C567 


C629 


20 


4D 


D4 


JSR 


$D44D 


C62C 


4C 


C4 


C5 


J MP 


$C5C4 


C62F 


A5 


94 




LDA 


$94 


C631 


8D 


94 


02 


STA 


$0294 


C634 


20 


3B 


DE 


JSR 


$DE3B 


C637 


A5 


81 




LDA 


$81 


C639 


8D 


90 


02 


STA 


$0290 


C63C 


60 






RTS 




*************************** 


C63D 


A5 


68 




LDA 


$68 


C63F 


DO 


28 




BNE 


$C669 


C641 


A6 


7F 




LDX 


$7F 


C643 


56 


1C 




LSR 


$1C,X 


C645 


90 


22 




BCC 


$C669 


C647 


A9 


FF 




LDA 


$FF 


C649 


8D 


98 


02 


STA 


$0298 


C64C 


20 


OE 


DO 


JSR 


$D00E 


C64F 


A0 


FF 




LDY 


#$FF 


C651 


C9 


02 




CMP 


#$02 


C653 


F0 


OA 




BEO 


$C65F 


C655 


C9 


03 




CMP 


#$03 


C657 


F0 


06 




BEO 


$C65F 


C659 


C9 


OF 




CMP 


#$0F 


C65B 


F0 


02 




BEQ 


$C65F 


C65D 


A0 


00 




LDY 


#$00 


C65F 


A6 


7F 




LDX 


$7F 


C661 


f§8 






TYA 




C662 


95 


FF 




STA 


$FF,X 


C664 


DO 


03 




BNE 


$C669 


C666 


20 


42 


DO 


JSR 


$D042 


C669 


A6 


7F 




LDX 


$7F 


C66B 


B5 


FF 




LDA 


$FF,X 


C66D 


60 






RTS 





track number 

sector number 
read block 

set buffer pointer 

erase-file found flag 

all directory entries checked? 

inc buffer ptr by 32, next entry 
and continue 

set buffer pointer 
read next block 



get track & sector no. from buffer 
save sector number 

test and initialize drive 



drive number 
disk changed? 
no, then done 

set error flag 

read directory track 

20, 'read error'? 
yes 

21, 'read error'? 
yes 

74, 'drive not ready'? 
yes 

drive number 

save error flag 
error? 
load BAM 
drive number 
transmit error code 



****************************** 
C66E 48 PHA 

C66F 20 A6 C6 JSR SC6A6 
C672 20 88 C6 JSR $C688 
C675 68 PLA 



name of file in directory buffer 

get end of the name 
write filename in buffer 
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C676 


38 






SEC 




C677 


ED 


4B 


02 


SBC 


$024B 


C67A 


AA 






TAX 




C67B 


FO 


0A 




BEO 


$C687 


C67D 


90 


08 




BCC 


$C687 


C67F 


A9 


AO 




LDA 


#$A0 


C681 


91 


94 




STA 


($94) ,Y 


C683 


C8 






INY 




C684 


CA 






DEX 




C685 


DO 


FA 




BNE 


$C681 


C687 


60 






RTS 




***************************** 


C688 


98 






TYA 




C689 


0A 






ASL 


A 


C68A 


A8 






TAY 




C68B 


B9 


99 


00 


LDA 


$0099, Y 


C68E 


85 


94 




STA 


$94 


C69 


B9 


9A 


00 


LDA 


$009A 


C693 


85 


95 




STA 


$95 


C695 


A0 


00 




LDY 


#$00 


C697 


BD 


00 


02 


LDA 


$0200, X 


C69A 


91 


94 




STA 


($94) ,Y 


C69C 


C8 






INY 




C69D 


FO 


06 




BEQ 


$C6A5 


C69F 


E8 






I NX 




C6A0 


EC 


76 


02 


CPX 


$0276 


C6A3 


90 


F2 




BCC 


$C697 


C6A5 


60 






RTS 




*****************************: 


C6A6 


A9 


00 




LDA 


#$00 


C6A8 


8D 


4B 


02 


STA 


$024B 


C6AB 


8A 






TXA 




C6AC 


48 






PHA 




C6AD 


BD 


00 


02 


LDA 


$0200, X 


C6B0 


C9 


2C 




CMP 


#$2C 


C6B2 


FO 


14 




BEO 


$C6C8 


C6B4 


C9 


3D 




CMP 


#$3D 


C6B6 


FO 


10 




BEO 


$C6C8 


C6B8 


EE 


4B 


02 


INC 


$024B 


C6BB 


E8 






I NX 




C6BC 


A9 


OF 




LDA 


#$0F 


C6BE 


CD 


4B 


02 


CMP 


$024B 


C6C1 


90 


05 




BCC 


$C6C8 


C6C3 


EC 


74 


02 


CPX 


$0274 


C6C6 


90 


E5 




BCC 


SC6AD 


C6C8 


8E 


76 


02 


STX 


$0276 


C6CB 


68 






PLA 




C6CC 


AA 






TAX 




C6CD 


60 






RTS 





compare len with max length 



pad with 'shift blank' 



buffer number 
times 2 as pointer 

buffer pointer after S94/395 

transmit characters in buffer 

buffer already full? 

search for end of name in command 



get characters out of buffer 
i i 



increment length of name 
15 



****************************** 
C6CE A5 83 LDA $83 



C6D0 



48 



PHA 



greater? 

end of input line? 



pointer to end of name 



secondary address and channel no. 
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A5 82 



LDA $82 



C6D1 

C6D3 48 PHA 

C6D4 20 DE C6 JSR SC6DE 

C6D7 68 PLA 

C6D8 85 82 STA $82 

C6DA 68 PLA 

C6DB 85 83 STA $83 

C6DD 60 RTS 

****************************** 



C6DE 
C6E0 
C6E2 
C6E5 
C6E8 
C6EB 
C6ED 
C6F0 
C6F2 
C6F5 
C6F6 
C6F7 
C6FA 
C6FC 
C6FF 
C701 
C704 
C707 
C7 0A 
C708 

C7 0E 
C710 
C713 
C716 
C719 
C71A 

C71B 
C71D 
C71F 
C721 
C724 
C7 26 
C7 28 
C7 29 
C7 2B 
C72E 
C730 
C7 3 2 
C734 
C736 
C737 
C739 
C7 3B 



A9 11 

85 83 

20 EB DO 

20 E8 D4 

AD 53 02 

10 0A 

AD 8D 02 

DO 0A 

20 06 C8 
18 
60 

AD 8D 02 

FO IF 

CE 8D 02 

DO OD 

CE 8D 02 

20 8F C3 

20 06 C8 
38 

4C 8F C3 

A9 00 
8D 73 02 
8D 8D 02 
20 B7 C7 
38 
60 

A2 18 
AO ID 
Bl 94 
8D 73 02 
FO 02 
A2 16 
88 

Bl 94 
8D 72 02 
EO 16 
FO OA 
C9 OA 
90 06 
CA 

C9 64 
90 01 
CA 



LDA 
STA 
JSR 
JSR 
LDA 
BPL 
LDA 
BNE 
JSR 
CLC 
RTS 
LDA 
BEO 
DEC 
BNE 
DEC 
JSR 
JSR 
SEC 
JMP 



#$11 

$83 

$D0EB 

$D4E8 

$0253 

SC6F7 

S028D 

$C6FC 

SC806 



$028D 
$C71B 
$028D 
$C70E 
$028D 
$C38F 
$C806 

$C38F 



LDA #$00 
STA $0273 
STA S028D 
JSR $C7B7 
SEC 
RTS 



LDX 
LDX 
LDA 
STA 
BEO 
LDX 
DEX 
LDA 
STA 
CPX 
BEO 
CMP 
BCC 
DEX 
CMP 
BCC 
DEX 



#$18 

#S1D 

($94) ,X 

$0273 

5C728 

#$16 

(594) ,X 

$0272 

#$16 

5C73C 

#$0A 

SC73C 

#$64 
SC73C 



create file entry for directory 
get data back 



17 

secondary address 
open channel to read 
set buffer pointer 



not yet last entry? 
write 'blocks free.' 



change drive 

write 'blocks free. 

change drive 



drive no. for header, hi-byte 
write header 



number of blocks hi 

in buffer 

zero? 



number of blocks lo 
in buffer 



10 
100 
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C7 3C 

C73F 

C741 

C742 

C743 

C745 

C747 

C74A 

C74B 

C74D 

C74E 

C751 

C754 

C755 

C758 

C75B 

C75C 

C7 5F 

C762 

C763 

C764 

C766 

C768 

C76B 

676D 

C770 

C771 

C773 

C775 

C778 

C779 

C77A 

C77C 

C77E 

C780 

C783 

C784 

C786 

C788 

C78B 

C78D 

C7BF 

C791 

C793 

C795 

C798 

C799 

C89B 

C79D 

C79F 

C7A2 

C7A5 

C7A7 

C7AA 

C7AB 



20 AC C7 

Bl 94 

48 

0A 

10 05 

A9 3C 

9D B2 02 

68 

29 OF 

A8 

B9 C5 FE 

9D Bl 02 

CA 

B9 CO FE 

9D Bl 02 

CA 

B9 BB FE 

9D Bl 02 

CA 

CA 

B0 05 

A9 2A 

9D B2 02 

A9 AO 

9D Bl 02 

CA 

AO 12 

Bl 94 

9D Bl 02 

CA 

88 

CO 03 

BO F5 

A9 22 

9D Bl 02 

E8 

EO 20 

BO OB 

BD Bl 02 

C9 22 

FO 04 

C9 AO 

DO FO 

A9 22 

9D Bl 02 

E8 

Ed 20 

BO OA 

A9 7F 

3D Bl 02 

9D Bl 02 

10 Fl 

20 B5 C4 

38 

60 



JSR 

LDA 

PHA 

ASL 

BPL 

LDA 

STA 

PLA 

AND 

TAY 

LDA 

STA 

DEX 

LDA 

STA 

DEX 

LDA 

STA 

DEX 

DEX 

BCS 

LDA 

STA 

LDA 

STA 

DEX 

LDY 

LDA 

STA 

DEX 

DEY 

CPY 

BCR 

LDA 

STA 

I NX 

CPX 

BCS 

LDA 

CMP 

BEO 

CMP 

BNE 

LDA 

STA 

I NX 

CPX 

BCS 

LDA 

AND 

STA 

BPL 

JSR 

SEC 

RTS 



$C7AC 
($94), Y 

A 

SC74A 
#S3C 
$02B2,X 

#S0F 

$FEC5,Y 
$02B1,X 

$FEC0,Y 
$02B1,X 

SFEBB,Y 
S02B1,X 



$C76B 

#$2A 

$02B2,X 

#$A0 

S02B1,X 

#$12 
($94), Y 
$02B1,X 



#$03 
$C773 
#$22 
$02B1,X 

#$20 

SC793 

$02B1,X 

#$22 

$C793 

#$A0 

$C783 

#$22 

S02B1,X 

#$20 

$C7A7 

#$7F 

$02B1,X 

$02B1,X 

$C798 

$C4B5 



erase buffer 
file type 

bit 7 in carry 

bit 6 not set? 

'<' for protected file 

write behind file type 

isolate bits 0-3 

as file type marker 

3rd letter of the file type 

in buffer 

2nd letter of file type 
in buffer 

1st letter of file type 
in buffer 



file not closed? 
t * i 

before file type in buffer 
pad with 'shift blank' 
in buffer 



filenames 
write in buffer 



write before file type 

character from buffer 
' = ' ? 

'shift blank' at end of name 

fill through '=' 

bit 7 

erase in the remaining chars 

search for next directory entry 
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****************************** erase directory buffer 



C7AC 
C7AE 
C7B0 
C7B3 
C7B4 
C7B6 



AO IB 

A9 20 

99 BO 2 

88 

DO FA 

60 



LDY #$1B 

LDA #$20 

STA $02B0,Y 

DEY 

BNE $C7B0 

RTS 



****************************** 



C7B7 
C7BA 
C7BD 
C7C0 
C7C2 
C7C4 
C7C6 
C7C9 
C7CB 
C7CE 
C7D0 
C7D3 
C7D5 
C7D8 
C7DA 
C7DC 
C7DE 
C7E0 
C7E2 
C7E4 
C7E5 
C7E7 
C7E9 
C7EB 
C7ED 
C7F0 
C7F1 
C7F3 
C7F5 
C7F8 
C7FA 
C7FD 
C800 
C802 
C805 



20 19 
20 DF 
20 AC 
A9 FF 
85 6F 
A6 7F 
8E 72 
A9 00 
8D 73 
A6 F9 
BD E0 
85 95 
AD 88 
85 94 
A0 16 
Bl 94 
C9 A0 
DO OB 
A9 31 
2C 

Bl 94 
C9 AO 
DO 02 
A9 20 
99 B3 
88 

10 F2 
A9 12 
8D Bl 
A9 22 
8D B2 
8D C3 
A9 20 
8D C4 
60 



Fl 
FO 
C7 



02 



02 



FE 



FE 



02 



02 



02 

02 



02 



JSR $F119 
JSR $F0DF 
JSR SC7AC 
LDA #SFF 
STA S6F 
LDX $7F 
STX $0272 
LDA #$00 
STA $0273 
LDX 3F9 
LDA $FEE0,X 
STA $95 
LDA SFE88 
STA $94 
LDY #$16 
LDA ($94) ,Y 
CMP #$A0 
BNE $C7ED 
LDA #$31 
.BYTE $2C 
LDA ($94) ,Y 
CMP #$A0 
BNE SC7ED 
LDA #$20 
STA S0 2B3 
DEY 

BPL SC7E5 
LDA #$12 
STA $02B1 
LDA #$22 
STA S0 2B2 
STA $02C3 
LDA #$20 
STA $02C4 
RTS 



****************************** 



C806 
C809 
C80B 
C80E 
CBll 
C812 
C814 



20 AC C7 

AO OB 

B9 17 C8 

99 Bl 02 

88 

10 F7 

4C 4D EF 



JSR $C7AC 

LDY #$0B 

LDA $C817,Y 

STA $02B1,Y 

DEY 

BPL $C80B 

JMP SEF4D 



■ ' blank 
write in buffer 



create header with disk name 
initialize if needed 
read disk name 
erase buffer 



drive number 

as block no. lo in buffer 

block number lo 

buffer number 

hi-byte of the buffer address 

$90, position of disk name 
save 

pad buffer with 'shift; blank' 



character from buffer 
compare with 'shift blank' 

' ' blank 
in buffer 



'RVS ON' 
in buffer 
i ii i 

write before 

and after disk name 

" ' blank 

behind it 



create last line 
erase buffer 
12 characters 
'blocks free.' 
write in buffer 



number of free blocks in front 
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****************************** 



C817 


42 


4C 


4F 


43 4B 


53 20 


46 


'blocks f 


C81F 


52 


45 


45 


2E 






' ree. ■ 


****************************** 


S command 'scratch* 


C823 


20 


98 


C3 


JSR 


SC398 




ascertain file type 


C826 


20 


20 


C3 


JSR 


$C320 




get drive number 


C829 


20 


CA 


C3 


JSR 


$C3CA 




initialize drive if needed 


C82C 


A9 


00 




LDA 


#$00 






C82E 


85 


86 




STA 


$86 




counter for erased files 


C830 


20 


9D 


C4 


JSR 


$C49D 




search for file in directory 


C833 


30 


3D 




BMI 


SC872 




not found? 


C835 


20 


B7 


DD 


JSR 


$DDB7 




is file open 


C838 


90 


33 




BCC 


$C86D 




yes 


C83A 


AO 


00 




LDY 


#$00 






C83C 


Bl 


94 




LDA 


($94), 


,Y 


file type 


C83E 


29 


40 




AND 


#$40 




scratch protect 


C840 


DO 


2B 




BNE 


$C86D 




yes 


C842 


20 


B6 


C8 


JSR 


$C8B6 




erase file and note in directory 


C845 


AO 


13 




LDY 


#$13 






C847 


Bl 


94 




LDA 


($94), 


Y 


track no. of the first side-sect< 


C849 


FO 


OA 




BEO 


$C855 




none present? 


C84B 


85 


80 




STA 


$80 




note track number 


C84D 


C8 






INY 








C84E 


Bl 


94 




LDA 


($94), 


Y 


and sector number 


C850 


85 


81 




STA 


$81 






C852 


20 


7D 


C8 


JSR 


$C87D 




erase side-sector 


C855 


AE 


53 


02 


LDX 


$0253 




file number 


C858 


A9 


20 




LDA 


#$20 






C85A 


35 


E7 




AND 


$E7,X 




bit 5 set? 


C85C 


DO 


OD 




BNE 


$C86B 




yes, file not closed 


C85E 


BD 


80 


02 


LDA 


$0280, 


X 


get track 


C861 


85 


80 




STA 


$80 






C863 


BD 


85 


02 


LDA 


$0285, 


X 


and sector 


C866 


85 


81 




STA 


$81 






C868 


20 


7D 


C8 


JSR 


$C87D 




erase file 


C86B 


E6 


86 




INC 


$86 




increment number of erased files 


C86D 


20 


8B 


C4 


JSR 


$C48B 




search for next file 


C870 


10 


C3 




BPL 


$C835 




if present, erase 


C872 


A5 


86 




LDA 


$86 




number of erased files 


C874 


85 


80 




STA 


$80 




save as 'track' 


C876 


A9 


01 




LDA 


#$01 




1 as disk status 


C878 


AO 


00 




LDY 


#$00 




as 'sector' 


C87A 


4C 


A3 


CI 


JMP 


SC1A3 




message 'files scratched' 


****************************** 


erase file 


C87D 


20 


5F 


EF 


JSR 


$EF5F 




free block in BAM 


C880 


20 


75 


D4 


JSR 


$D47 5 






C883 


20 


19 


Fl 


JSR 


$F119 




get buffer number in BAM 


C886 


B5 


A7 




LDA 


$A7,X 






C888 


C9 


FF 




CMP 


#$FF 






C88A 


FO 


08 




BEO 


SC894 






C88C 


AD 


F9 


02 


LDA 


S02F9 






C88F 


09 


40 




ORA 


#$40 






C891 


8D 


F9 


02 


STA 


$02F9 
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C894 


A9 


00 




LDA 


#$00 




C896 


20 


C8 


D4 


JSR 


SD4C8 


buffer pointer to zer< 


C899 


20 


56 


Dl 


JSR 


SD156 


get track 


C89C 


85 


80 




STA 


$80 




C89E 


20 


56 


Dl 


JSP 


SD156 


get sector 


C8A1 


85 


81 




STA 


$81 




C8A3 


A5 


80 




LDA 


$80 


track number 


C8A5 


DO 


06 




BNE 


SC8AD 


not equal to zero 


C8A7 


20 


F4 


EE 


JSR 


$EEF4 


write BAM 


C8AA 


4C 


27 


D2 


JMP 


SD227- 


close channel 


C8AD 


20 


5F 


EF 


JSR 


$EF5F 


free block in BAM 


C8B0 


20 


4D 


D4 


JSP 


SD44D 


read next block 


C8B3 


4C 


94 


C8 


JMP 


SC894 


and continue 


****************************** 


erase directory entry 


C8B6 


A0 


00 




LDY 


#$00 




C8B8 


98 






TYA 






C8B9 


91 


94 




STA 


($94), Y 


set file type to zero 


C8BB 


20 


5E 


DE 


JSR 


$DE5E 


write block 


C8BE 


4C 


99 


D5 


JMP 


$D599 


and check 



****************************** 
C8C1 A9 31 LDA #$31 



C8C3 


4C 


C8 


CI 


JMP 


$C1C8 


***************** 


*********** 


C8C6 


A9 


4C 




LDA 


#$4C 


C8C8 


8D 


00 


06 


STA 


$0600 


C8CB 


A9 


C7 




LDA 


#$C7 


C8CD 


8D 


01 


06 


STA 


$0601 


C8D0 


A9 


FA 




LDA 


#SFA 


C8D2 


8D 


02 


06 


STA 


$0602 


C8D5 


A9 


03 




LDA 


#$03 


C8D7 


20 


D3 


D6 


JSR 


SD6D3 


C8DA 


A5 


7F 




LDA 


$7F 


C8DC 


09 


E0 




ORA 


#$E0 


C8DE 


85 


03 




STA 


$03 


C8E0 


A5 


03 




LDA 


$03 


C8E2 


30 


FC 




BMI 


$C8E0 


C8E4 


C9 


02 




CMP 


#$02 


C8E6 


90 


07 




BCC 


$C8EF 


C8E8 


A9 


03 




LDA 


#$03 


C8EA 


A2 


00 




LDX 


#$00 


C8EC 


4C 


0A 


E6 


JMP 


$E60A 


C8EF 


60 






RTS 




*************************** 


C8F0 


A9 


E0 




LDA 


#$E0 


C8F2 


8D 


4F 


02 


STA 


$024F 


C8F5 


20 


Dl 


F0 


JSR 


$F0D1 


C8F8 


20 


19 


Fl 


JSR 


SF119 


C8FB 


A9 


FF 




LDA 


#$FF 


C8FD 


95 


A7 




STA 


$A7,X 


C8FF 


A9 


OF 




LDA 


#$0F 



D-command 'backup' 

31 , ' syntax error' 

format diskette 
JMP-command 

JMP $FAC7 in $600 to $602 



set track and sector number 

drive numDer 

command code for formatting 

transmit 

wait until formatting done 

smaller than two, then ok 

21, 'read error' 



C-command 'copy' 



get buffer number of BAM 
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C901 
C904 
C907 
C909 

C90C 
C90F 
C912 
C915 
C917 
C919 
C91C 
C91F 
C921 
C923 
C925 

C9 28 
C92B 
C92D 
C92F 
C932 
C934 
C937 
C93A 
C93D 
C940 
C942 
C944 
C9 46 
C948 
C94B 
C94E 
C951 

C952 
C9 55 
C958 
C9 5A 
C95C 
C95E 
C960 
C962 
C964 
C966 
C968 
C96A 
C96C 
C96E 
C971 
C973 
C976 
C9-79 
C97C 
C97E 



8D 56 02 

20 E5 CI 

DO 03 

4C CI C8 

20 F8 CI 

20 20 C3 

AD 8B 02 

29 55 

DO OF 

AE 7A 02 

BD 00 02 

C9 2A 

DO 05 

A9 30 

4C C8 CI 

AD 8B 02 

29 D9 

DO F4 

4C 52 C9 

A9 00 

8D 58 02 

8D 8C 02 

8D 80 02 

8D 81 02 

A4 E3 

29 01 

85 7F 

09 01 

8D 91 02 

AD 7B 02 

8D 7A 02 
60 

20 4F C4 

AD 78 02 

C9 03 

90 45 

A5 E2 

C5 E3 

DO 3F 

A5 DD 

C5 DE 

DO 39 

A5 D8 

C5 D9 

DO 33 

20 CC CA 

A9 01 

8D 79 02 

20 FA C9 

20 25 Dl 

FO 04 

C9 02 



STA S0256 
JSR SC1E5 
BNE SC90C 
JMP $C8C1 

JSR $C1F8 
JSR SC320 
LDA $0 28B 
AND #$55 
BNE $C928 
LDX S027A 
LDA $0200, X 
CMP #$2A 
BNE $C928 
LDA #$30 
JMP $C1C8 



LDA 
AND 
BNE 
JMP 
LDA 
STA 
STA 
STA 
STA 
LDA 
AND 
STA 
OFA 
STA 
LDA 
STA 
FTS 

JSR 
LDA 
CMP 
BCC 
LDA 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
CMP 
BNE 
JSR 
LDA 
STA 
JSR 
JSP 
BEQ 
CMP 



$028B 

#$D9 

$C923 

SC952 

#$00 

$0258 

$028C 

$0280 

$0281 

$E3 

#$01 

$7F 

#$01 

$0291 

$027B 

$027A 



$C44F 

$0278 

#$03 

$C9A1 

$E2 

$E3 

SC9A1 

$DD 

$DE 

$C9A1 

$D8 

$D9 

SC9A1 

SCACC 

#$01 

$0279 

SC9FA 

SD125 

SC982 

#$02 



check input line 

31, 'syntax error' 

check input 

test drive number 

flag for syntax check 



character of the command 
i * i 



30, 'syntax error' 

syntax flag 

30, 'syntax error' 



number of drives 

track number in directory 



drive number 



search for file in directory 

number of filenames in command 

smaller than three? 

yes 

first drive number 

second drive number 

not on same drive? 

directory block of the 1st file 

same dir block as second file? 

no 

directory sector of first file 

same dir sector as second file? 

no 

is file present 



get data type 
rel-f lie? 

prg-f ile 
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C980 


DO 


05 




BNE 


$C987 


no 


C982 


A9 


64 




LDA 


#$64 




C984 


20 


C8 


CI 


JSR 


$C1C8 


64, 'file type mismatch' 


C987 


A9 


12 




LDA 


#S12 


18 


C989 


85 


83 




STA 


$83 


secondary address 


C98B 


AD 


3C 


02 


LDA 


$023C 




C98E 


8D 


3D 


02 


STA 


$023D 




C991 


A9 


FF 




LDA 


#$FF 




C993 


8D 


3C 


02 


STA 


$023C 




C996 


20 


2A 


DA 


JSR 


$DA2A 


prepare append 


C999 


A2 


02 




LDX 


#$02 




C99B 


20 


B9 


C9 


JSR 


$C9B9 


copy file 


C99E 


4C 


94 


CI 


JMP 


SC194 


done 


C9A1 


20 


A7 


C9 


JSR 


SC9A7 


copy file 


C9A4 


4C 


94 


CI 


JMP 


$C194 


done 


C9A7 


20 


E7 


CA 


JSR 


$CAE7 




C9AA 


A4 


E2 




LDA 


$E2 


drive no. of first file 


C9AC 


29 


01 




AND 


#$01 




C9AE 


85 


7F 




STA 


$7F 


drive number 


C9B0 


20 


86 


D4 


JSR 


$D486 




C9B3 


20 


E4 


D6 


JSR 


SD6E4 


enter file in directory 


C9B6 


AE 


77 


02 


LDX 


$0277 




C9B9 


8E 


79 


02 


STX 


$0279 




C9BC 


20 


FA 


C9 


JSR 


$C9FA 




C9BF 


A9 


11 




LDA 


#$11 


17 


C9C1 


85 


83 




STA 


$83 




C9C3 


20 


EB 


DO 


JSR 


$D0EB 




C9C6 


20 


25 


Dl 


JSP 


$D125 


get data type 


C9C9 


DO 


03 




BNE 


$C9CE 


no rel-file? 


C9CB 


20 


53 


CA 


JSR 


$CA53 




C9CE 


A9 


08 




LDA 


#$08 




C9D0 


85 


F8 




STA 


$F8 




C9D2 


4C 


D8 


C9 


JMP 


$C9D8 




C9D5 


20 


9B 


CF 


JSR 


$CF9B 


write byte in buffer 


C9D8 


20 


35 


CA 


JSR 


SCA35 


and get byte 


C9DB 


A9 


80 




LDA 


#$80 




C9DD 


20 


A6 


DD 


JSR 


SDDA6 


test bit 7 


C9E0 


F0 


F3 




BEO 


$C9D5 


not set? 


C9E2 


20 


25 


Dl 


JSR 


$D125 


check file type 


C9E5 


F0 


03 




BEO 


$C9EA 


rel-file? 


C9E7 


20 


9B 


CF 


JSR 


$CF9B 


get data byte in buffer 


C9EA 


AE 


79 


02 


LDX 


$0279 




C9ED 


E8 






I NX 






C9EE 


EC 


78 


02 


CPX 


S0278 




C9F1 


90 


C6 




BCC 


$C9B9 




C9F3 


A9 


12 




LDA 


#$12 


18 


C9F5 


85 


83 




STA 


$83 




C9F7 


4C 


02 


DB 


JMP 


$DB02 


close channel 


C9FA 


AE 


79 


02 


LDX 


$0279 




C9FD 


B5 


E2 




LDA 


$E2,X 


drive number 


C9FF 


29 


01 




AND 


#$01 
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CA01 


85 


7F 




STA 


S7F 


save 


CA03 


AD 


85 


FE 


LDA 


$FE85 


18, directory track 


CA06 


85 


80 




STA 


$80 


save 


CA08 


B5 


D8 




LDA 


$D8,X 


directory sector 


CAOA 


85 


81 




STA 


$81 




CAOC 


20 


75 


D4 


JSR 


$D475 


read block 


CAOF 


AE 


79 


02 


LDX 


$0279 




CA12 


B5 


DD 




LDA 


$DD,X 


pointer in block 


CA14 


20 


C8 


D4 


JSR 


$D4C8 


set buffer pointer 


CA17 


AE 


79 


02 


LDX 


$0279 




CA1A 


B5 


E7 




LDA 


$E7,X 


file type 


CA1C 


29 


07 




AND 


#$07 


isolate 


CA1E 


8D 


4A 


02 


STA 


S024A 


and save 


CA21 


A9 


00 




LDA 


#$00 




CA23 


8D 


58 


02 


STA 


$0258 




CA26 


20 


AO 


D9 


JSR 


$D9A0 


get parameters for 


CA29 


AO 


01 




LDY 


#$01 




CA2B 


20 


25 


Dl 


JSR 


$D125 


get file type 


CA2E 


FO 


01 




BEQ 


$CA31 


rel-f ile? 


CA30 


C8 






INY 






CA31 


98 






TYA 






CA32 


4C 


C8 


D4 


JMP 


SD4C8 


set buffer pointer 


CA35 


A9 


11 




LDA 


#$11 


17 


CA37 


85 


83 




STA 


$83 




CA39 


20 


9B 


D3 


JSR 


$D39B 


open channel and gel 


CA3C 


85 


85 




STA 


$85 




CA3E 


A6 


82 




LDX 


$82 


channel number 


CA40 


B5 


F2 




LDA 


$F2,X 




CA4 2 


29 


08 




AND 


#$08 


isolate end marker 


CA44 


85 


F8 




STA 


$F8 




CA46 


DO 


OA 




BNE 


$CA52 


not set? 


CA48 


20 


25 


Dl 


JSR 


$D125 


get data type 


CA4B 


FO 


05 




BEQ 


$CA52 


rel-f ile? 


CA4D 


A9 


80 




LDA 


#$80 




CA4F 


20 


97 


DD 


JSR 


$DD9 7 


set bit 7 


CA52 


60 






RTS 






CA53 


20 


D3 


Dl 


JSR 


$D1D3 


set drive number 


CA56 


20 


CB 


El 


JSR 


$E1CB 




CA59 


A5 


D6 




LDA 


$D6 




CA5B 


48 






PHA 






CA5C 


A5 


D5 




LDA 


$D5 




CA5E 


48 






PHA 






CA5F 


A9 


12 




LDA 


#$12 


18 


CA61 


85 


83 




STA 


$83 




CA6 3 


20 


07 


Dl 


JSR 


$D107 


open write channel 


CA66 


20 


D3 


Dl 


JSR 


$D1D3 


set drive number 


CA69 


20 


CB 


El 


JSR 


$E1CB 




CA6C 


20 


9C 


E2 


JSR 


SE29C 




CA6F 


A5 


D6 




LDA 


$D6 




CA71 


85 


87 




STA 


$87 




CA7 3 


A5 


D5 




LDA 


$D5 




CA75 


85 


86 




STA 


$86 




CA77 


A9 


00 




LDA 


#$00 




CA79 


85 


88 




STA 


$88 
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CA7B 


85 


D4 


STA 


SD4 


CA7D 


85 


D7 


STA 


$D7 


CA7F 


68 




PLA 




CA80 


85 


D5 


STA 


$D5 


CA82 


68 




PLA 




CA83 


85 


D6 


STA 


SD6 



CA85 



4C 3B E3 JMP SE33B 



****** 4 

CA88 
CA8B 
CA8D 
CA8F 
CA91 
CA93 
CA95 
CA97 
CA99 
CA9C 
CA9F 
CAA1 
CAA3 
CAA5 
CAA7 
CAA9 
CAAC 
CAAF 
CAB1 
CAB2 
CAB4 
CAB 7 
CABA 
CABB 
CABE 
CACO 
CAC3 
CAC6 
CAC9 



t#*# + + ##-*# + *## + ### + #**J 



20 20 C3 

A5 E3 

29 01 

85 E3 

C5 E2 

F0 02 

09 80 

85 E2 

20 4F C4 

20 E7 CA 

A5 E3 

29 01 

85 7F 

A5 D9 

85 81 

20 57 DE 

20 99 D5 

A5 DE 
18 

69 03 

20 C8 D4 

20 93 DF 
A8 

AE 7A 02 

A9 10 

20 6E C6 

20 5E DE 

20 99 D5 

4C 94 CI 



JSR 
LDA 
AND 
STA 
CMP 
BEO 
ORA 
STA 
JSR 
JSR 
LDA 
AND 
STA 
LDA 
STA 
JSR 
JSR 
LDA 
CLC 
ADC 
JSP 
JSR 
TAY 
LDX 
LDA 
JSR 
JSR 
JSR 
JMP 



SC320 

SE3 

#$01 

SE3 

$E2 

SCA97 

#$80 

$E2 

$C44F 

SCAE7 

$E3 

#$01 

S7F 

$D9 

$81 

SDE57 

$D599 

$DE 

#$03 

SD4C8 

$DF93 

$027A 

#$10 

$C66E 

$DE5E 

SD599 

$C194 



****************************** 



CACC 
CACE 
CAD0 
CAD3 
CAD6 
CAD7 
CADA 
CADC 
CADF 
CAE1 
CAE3 
CAE6 



A5 E8 

29 07 

8D 4A 02 

AE 78 02 
CA 

EC 77 02 

90 0A 

BD 80 02 

DO F5 

A9 62 

4C C8 CI 
60 



LDA SE8 
AND #$07 
STA S024A 
LDX $0278 
DEX 

CPX $0277 
BCC SCAE6 
LDA $0 280,X 
BNE SCAD6 
LDA #$62 
JMP $C1C8 
RTS 



R-command, 'rename' 

get drive no. from command line 



2nd drive number 

compare with 1st drive number 

same? 



search for file in directory 
does name exist? 



drive number 

sector number 

read block from directory 

ok? 

pointer to directory entry 

pointer plus 3 to file name 
set buffer pointer 
get buffer number 



16 characters 

write name in buffer 

write block to directory 

ok? 

done, prepare disk status 



check if file present 
file type 



track number 
not zero? 

62, 'file not found' 



CAE7 
CAEA 



20 CC CA 
8D 80 02 



JSR SCACC 
LDA $0280, X 



does file exist with old reme? 
track number of new file 
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CAED FO 05 



CAEF 
CAF1 
CAF4 
CAF5 
CAF7 



A9 63 

4C C8 CI 

CA 

10 

60 



F3 



BEO SCAF4 

LDA #$6 3 

JMP $C1C8 

DEX 

BPL SCAEA 

RTS 



****************************** 



CAF8 
CAFB 
CAFD 
CAFF 
CB02 
CB04 
CB07 
CB09 
CBOB 
CBOE 
CB10 
CB12 
CB15 
CB17 
CB19 
CB1B 
CB1D 



AD 01 02 
C9 2D 
DO 4C 
AD 03 02 
85 6F 
AD 04 02 
85 70 
AO 00 
AD 02 02 
C9 52 
FO OE 
20 58 F2 
C9 57 
FO 37 
C9 45 
DO 2E 
6C 6F 00 



LDA 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
CMP 
BEQ 
JSR 
CMP 
BEO 
CMP 
BNE 
JMP 



$0201 

#$2D 

SCB4B 

$0203 

$6F 

$0204 

$70 

#$00 

$0202 

#$52 

$CB20 

$F258 

#$57 

SCB50 

#$45 

$CB4B 

(S006F) 



****************************** 



CB20 
CB22 
CB24 
CB27 
CB29 
CB2B 
CB2E 
CB2F 
CB31 
CB32 
CB33 
CB35 
CB37 
CB3A 
CB3C 
CB3E 
CB40 
CB4 2 

CB4 5 
CB48 

CB4B 
CB4D 



Bl 6F 

85 85 

AD 74 02 

C9 06 

90 1A 

AE 05 02 
CA 

FO 14 
8A 
18 

65 6F 

E6 6F 

8D 49 02 

A5 6F 

85 A5 

A5 70 

8 5 A6 

4C 43 D4 

20 EB DO 

4C 3A D4 

A9 31 

4C C8 CI 



LDA 
STA 
LDA 
CMP 
BCC 
LDX 
DEX 
BEO 
TXA 
CLC 
ADC 
INC 
STA 
LDA 
STA 
LDA 
STA 
JMP 



($6F),Y 

$85 

$0274 

#$06 

$CB45 

$0205 

$CB45 



$6F 

$6F 

$0249 

$6F 

$A5 

$70 

$A6 

SD443 



JSR SDOEB 
JMP $D43A 

LDA #$31 
JMP SC1C8 



****************************** 



CB50 
CB53 



B9 06 02 
91 6F 



LDA $0206, Y 
STA ($6F) ,Y 



file erased? 

63, 'file exists' 



M-command, 'memory' 
2nd character from buffer 



address in $6F/$70 



3rd character from Duffer 

•R' 

to memory read 

(RTS) 

■ w i 

to memory write 
'E' 

memory-execute 

M-R, 'Memory-Read' 
read byte 

length of command line 

less than 6? 

yes 

number 

only one byte? 
number of bytes 

plus start address 

end pointer 

buffer pointer for error message 
set to start address for 'M-R' 

byte out 

open read channel 
byte out 



31, 'syntax error' 

M-w, 'memory-write' 
read character 
and save 
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CB55 C8 

CB56 CC 05 02 

CB59 90 F5 

CB5B 60 



INY 

CPY $0205 

BCC SCB50 

RTS 



****************************** 



CB5C 
CB5F 
CB61 
CB63 
CB65 
CB67 
CB69 
CB6B 



AC 01 02 
CO 30 
DO 09 
A9 EA 
85 6B 
A9 FF 
85 6C 
60 



LDY $0201 
CPY #$30 
BNE $CB6C 
LDA #$EA 
STA $6B 
LDA #$FF 
STA $6C 
RTS 



number of characters 
all characters? 



U-command , 'user' 

second char 

•0' 

no 

ptr to table of user-addresses 
SFFEA 



CB6C 
CB6F 

CB72 
CB7 3 
CB74 
CB76 
CB77 
CB78 
CB7A 
C87C 
CB7D 
CB7F 
CB81 



20 72 CB 
4C 94 CI 

88 

98 

29 OF 

0A 

A8 

Bl 6B 

85 75 

C8 

Bl 6B 

85 76 



JSR $CB72 
JMP SC194 

DEY 

TYA 

AND #$0F 

ASL A 

TAY 

LDA ($6B) ,Y 

STA $75 

INY 

LDA ($6B),Y 

STA $76 



6C 75 00 JMP ($0075) 



****************************** 



CB84 


AD 


8E 


02 


LDA 


$028E 


CB87 


85 


7F 




STA 


$7F 


CB89 


A5 


83 




LDA 


$83 


CB8B 


48 






PHA 




CB8C 


20 


3D 


C6 


JSR 


SC63D 


CB8F 


68 






PLA 




CB90 


85 


83 




STA 


$83 


CB92 


AE 


74 


02 


LDX 


$0274 


CB95 


CA 






DEX 




CB96 


DO 


0D 




BNE 


$CBA5 


CB98 


A9 


01 




LDA 


#$01 


CB9A 


20 


E2 


Dl 


JSP 


SD1E2 


CB9D 


4C 


Fl 


CB 


JMP 


$CBF1 


CBA0 


A9 


70 




LDA 


#$70 


CBA2 


4C 


C8 


CI 


JMP 


SC1C8 


CBA5 


A0 


01 




LDY 


#$01 


CBA7 


20 


7C 


CC 


JSR 


SCC7C 


CBAA 


AE 


85 


02 


LDX 


$0285 


CBAD 


E0 


05 




CPX 


#$05 


CBAF 


B0 


EF 




BCS 


$CBA0 


CBB1 


A9 


00 




LDA 


#$00 


CBB3 


85 


6F 




STA 


S6F 


CBB5 


85 


70 




STA 


$70 



done, prepare error message 



number 
times 2 

as pointer in table 

address at S75/S76 

execute function 

open direct access channel, '#' 
last drive number 
drive number 
channel number 

cnecK drive and initialize 

length of filename 

greater than one? 

layout buffer and channel 
set flags, done 

70, 'no channel' 

get buffer number 
buffer number 
bigger than 5? 
70, 'no channel' 
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CBB7 
CBB8 
CBBA 
CBBC 
CBBD 
CBBF 
CBC1 
CBC4 
CBC6 
CBC8 
CBCB 
CBCD 
CBCF 
CBD2 
CBD5 
CBD7 
CBDA 
CBDD 
CBDF 
CBE2 
CBE4 
CBE7 
CBE9 
CBEA 
CBEC 
CBEE 
CBF1 
CBF3 
CBF6 
CBF8 
CBFB 
CBFD 
CBFF 
CCO 2 
CCO 4 
CC07 
CCOA 
CCOD 
CCOE 
CCOF 
CC11 
CC13 
CC15 
CC18 



38 

26 6F 
26 70 
CA 

10 F9 
A5 6F 
2D 4F 02 
DO DA 
A5 70 
2D 50 02 
DO D3 
A5 6F 
OD 4F 02 
8D 4F 02 
A5 70 
OD 50 02 
8D 50 02 
A9 00 
20 E2 Dl 
A6 82 
AD 85 02 
95 A7 
AA 

A5 7F 
95 00 
9D 5B 02 
A6 83 
BD 2B 02 
09 40 
9D 2B 02 
A4 82 
A9 FF 
99 44 02 
A9 89 
99 F2 00 
B9 A7 00 
99 3E 02 
OA 
AA 

A9 01 
95 99 
A9 OE 
99 EC 00 
4C 94 CI 



SEC 
ROL 
ROL 
DEX 
BPL 
LDA 
AND 
BNE 
LDA 
AND 
BNE 
LDA 
ORA 
STA 
LDA 
ORA 
STA 
LDA 
JSR 
LDX 
LDA 
STA 
TAX 
LDA 
STA 
STA 
LDX 
LDA 
ORA 
STA 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
JMP 



$6F 
$70 

SCBB8 

$6F 

$024F 

$CBA0 

S70 

$0250 

$CBA0 

$6F 

$024F 

$024F 

$70 

$0250 

$0250 

#$00 

$D1E2 

$82 

$0285 

$A7,X 

$7F 

$00, X 

$025B,X 

$83 

$022B,X 

#$40 

$022B,X 

$82 

#$FF 

$0244, Y 

#$89 

$00F2,Y 

$00A7,Y 

$023E,Y 

A 

#$01 
$99, X 
#$0E 
$00EC,Y 
$C194 



search channel 
channel number 
buffer number 



drive number 

secondary address 

set READ and WRITE flags 

channel number 

end pointer 

set READ and WRITE flags 
buffer number 

times 2 

buffer pointer to one 

flag for direct access 
done 



****************************** 



CC1B 
CC1D 
CC1F 
CC21 
CC24 
CC26 



A0 00 

A0 00 

A9 2D 

20 68 C2 

DO 0A 

A9 31 



LDY #$00 
LDX #$00 
LDA #$2D 
JSR SC268 
BNE $CC30 
LDA #$31 



B-command , 



'Block* 



search for minus sign 
found? 



CC28 4C C8 CI JMP $C1C8 31, 'syntax error' 
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CC2B 


A9 


30 




LDA 


#$30 




CC2D 


4C 


C8 


CI 


J MP 


SC1C8 




CC30 


8A 






TXA 






CC31 


DO 


F8 




BNE 


$CC2B 




CC33 


A2 


05 




LDX 


#$05 




CC35 


B9 


00 


02 


LDA 


$0200 


Y 


CC38 


DD 


5D 


CC 


CMP 


$CC5D 


X 


CC3B 


FO 


05 




BEQ 


$CC4 2 




CC3D 


CA 






DEX 






CC3E 


10 


F8 




BPL 


$CC38 




CC40 


30 


E4 




BMI 


$CC26 




CC42 


8A 






TXA 






CC4 3 


09 


80 




ORA 


#$80 




CC45 


8D 


2A 


02 


STA 


$022A 




CC48 


20 


6F 


CC 


JSR 


SCC6F 




CC4B 


AD 


2A 


02 


LDA 


$022A 




CC4E 


0A 






ASL 


A 




CC4F 


AA 






TAX 






CC50 


BD 


64 


CC 


LDA 


$CC64 


X 


CC53 


85 


70 




STA 


$70 




CC55 


BD 


63 


CC 


LDA 


$CC63, 


X 


CC58 


85 


6F 




STA 


$6F 




CC5A 


6C 


6F 


00 


JMP 


(S006F) 



****************************** 



CC5D 



41 46 52 57 45 50 



30, 'syntax error' 

comma, then error 

char from buffer 
compare with 'AFRWEP' 
found? 

compare with all characters 
not found, error 

command number, set bit 7 

get parameters 

number times 2 

as index 

address of command hi 

address lo 

jump to command 

names of the various block cmds 
'AFRWEP' 



***** 


k*** 


k *** 


*** 


***** i 


********* 


addresses of block commands 


CC6 3 


03 


CD 








$CD03, B-A 


CC65 


F5 


CC 








$CCF5, B-F 


CC67 


56 


CD 








SCD56. B-R 


CC69 


73 


CD 








$CD7 3, B-W 


CC6B 


A3 


CD 








SCDA3, B-E 


CC6D 


BD 


CD 








$CDBD, B-P 


****************************** 


get parameters for block co 


CC6F 


A0 


00 




LDY 


#$00 




CC71 


A2 


00 




LDX 


#$00 




CC73 


A9 


3A 




LDA 


#$3A 


t . i 


CC75 


20 


68 


C2 


JSR 


SC268 


test line to colon 


CC78 


DO 


02 




BNE 


$CC7C 


found? 


CC7A 


A0 


03 




LDY 


#$03 


no, begin at 4th character 


CC7C 


B9 


00 


02 


LDA 


$0200, Y 


search for separating char 


CC7F 


C9 


20 




CMP 


#$20 


' ' blank 


CC81 


F0 


08 




BE0 


$CC8B 




CC83 


C9 


ID 




CMP 


#$1D 


cursor right 


CC85 


F0 


04 




BEO 


SCC8B 




CC87 


C9 


2C 




CMP 


#$2C 


' , ' comma 


CC89 


DO 


07 




BNE 


$CC92 




CC8B 


C8 






INY 






CC8C 


CC 


74 


02 


CPY 


$0274 


line end? 


CC8F 


90 


EB 




BCC 


SCC7C 




CC91 


60 






RTS 
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CC92 

CC95 

CC98 

CC9B 

CC9D 

CC9F 

CCA1 

CCA3 

CCA5 

CCA7 

CCA9 

CCAB 

CCAE 

CCBO 

CCB2 

CCB4 

CCB6 

CCB8 

CCB9 

CCBB 

CCBD 

CCBF 

CCC1 

CCC2 

CCC4 

CCC5 

CCC7 

CCCA 

CCCD 

CCCE 

CCDO 

CCDl 

CCD3 

CCD5 

CCD7 

CCD8 

CCDA 

CCDD 

CCDF 

CCEO 

CCE2 

CCE4 

CCE5 

CCE8 

CCEA 

CCED 

CCEE 

CCF1 



20 Al CC 

EE 77 02 

AC 79 02 

EO 04 

90 EC 

BO 8A 

A9 00 

85 6F 

85 70 

85 72 

A2 FF 

B9 00 02 

C9 40 

BO 18 

C9 30 

90 14 

29 OF 
48 

A5 70 

85 71 

A4 6F 

85 70 

68 

85 6F 

C8 

CC 74 02 

90 El 

8C 79 02 

18 

A9 00 

E8 

EO 03 

BO OF 

B4 6F 

88 

30 F6 

7D F2 CC 

90 F8 

18 

E6 72 

DO F3 

48 

AE 77 02 

A5 72 

9D 80 02 

68 

9D 85 02 

60 



JSR 
INC 
LDY 
CPX 
BCC 
BCS 
LDA 
STA 
STA 
STA 
LDX 
LDA 
CMP 
BCS 
CMP 
BCC 
AND 
PHA 
LDA 
STA 
LDA 
STA 
PLA 
STA 
INY 
CPY 
BCC 
STY 
CLC 
LDA 
I NX 
CPX 
BCS 
LDY 
DEY 
BMI 
ADC 
BCC 
CLC 
INC 
BNE 
PHA 
LDX 
LDA 
STA 
PLA 
STA 
RTS 



SCCA1 

S0277 

$0279 

#$04 

$CC8B 

SCC2B 

#$00 

$6F 

$70 

$72 

#$FF 

$0200, Y 

#$40 

$CCCA 

#$30 

$CCCA 

#$0F 

$70 
$71 
$6F 

$70 

$6F 

$0274 
SCCAB 
$0279 

#$00 

#$03 

$CCE4 

$6F,X 

$CCD0 

$CCF2,X 

$CCD7 

$72 
$CCD7 

$0277 
$72 
$0280, X 

$0285, X 



preserve next parameter 
increment parameter counter 

compare with maximum number 

30, 'syntax error' 

erase storage area for decimal #s 

get characters from input buffer 

no digits? 

•0' 

no digits? 

convert ASCII digits to hex 

and save 

move digits one further 



note read number 

increment pointer in input buffer 

line end reached 

no 

save pointer 



convert hex digits to one byte 



****************************** 



CCF2 



01 0A 64 



****************************** 

CCF5 20 F5 CD JSR $CDF5 
CCF8 20 5F EF JSR $EF5F 



add decimal value 



counter for parameters 

hi-byte 

lo-byte 



decimal values 
1, 10, 100 

B-F command, 'Block-Free' 

get track, sector and drive no. 

free block 
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CCFB 



4C 94 CI JMP SC194 



done, prepare error message 



****************************** 



CCFE 


A9 


01 




LDA 


#$01 


CDOO 


8D 


F9 


02 


STA 


$02F9 


**************************** 


CD03 


20 


F5 


CD 


JSR 


$CDF5 


CD06 


A5 


81 




LDA 


S81 


CD08 


48 






PHA 




CD09 


20 


FA 


Fl 


JSR 


SF1FA 


CDOC 


FO 


OB 




BEO 


SCD19 


CDOE 


68 






PLA 




CDOF 


C5 


81 




CMP 


$81 


CD11 


DO 


19 




BNE 


$CD2C 


CD13 


20 


90 


EF 


JSR 


SEF90 


CD16 


4C 


94 


CI 


JMP 


$C194 


CD19 


68 






PLA 




CD1A 


A9 


00 




LDA 


#$00 


CD1C 


85 


81 




STA 


$81 


CD1E 


E6 


80 




INC 


$80 


CD20 


A5 


80 




LDA 


$80 


CD22 


CD 


D7 


FE 


CMP 


$FED7 


CD25 


BO 


OA 




BCS 


$CD31 


CD27 


20 


FA 


Fl 


JSR 


$F1FA 


CD2A 


FO 


EE 




BEO 


$CD1A 


CD2C 


A9 


65 




LDA 


#$65 


CD2E 


20 


45 


E6 


JSR 


$E645 


CD31 


A9 


65 




LDA 


#$65 


CD33 


20 


C8 


CI 


JSR 


$C1C8 



B-A command, 'Block-Allocate' 

get track, sector and drive no. 

sector 

save 

find block in BAM 

block allocated? 

desired sector 

= next free sector? 

no 

allocate block in BAM 

done 



sector 

next track 

track number 

36, last track number + 1 

>=, then 'no block' 

find free block in next track 

not found, check next track 

65, 'no block' next free blocK 

65, 'no block' no more free block! 



****************************** 
CD36 20 F2 CD JSR $CDF2 
CD39 4C 60 D4 JMP $D460 

****************************** 



CD3C 


20 


2F 


Dl 


JSR SD12F 


CD3F 


Al 


99 




LDA ($99,X) 


CD41 


60 






RTS 


***************************** 


CD42 


20 


36 


CD 


JSR $CD36 


CD45 


A9 


00 




LDA #$00 


CD47 


20 


C8 


D4 


JSR $D4C8 


CD4A 


20 


3C 


CD 


JSR $CD3C 


CD4D 


99 


44 


02 


STA $0244, Y 


CD50 


A9 


89 




LDA $89 


CD5 2 


99 


F2 


00 


STA $00F2,Y 


CD55 


60 






RTS 



****************************** 
CD56 20 42 CD JSR SCD42 



CD59 20 EC D3 
CD5C 4C 94 CI 



JSR $D3EC 
JMP SC194 



open channel, set parameters 
read block from disk 

get byte from buffer 
set pointer to buffer 
get byte 



read block from disk 
open channel, read block 

set buffer pointer to zero 
get a byte from the buffer 

set read and write flag 



B-R command, 'Block-Read' 
read block from disk 
prepare byte from Duffer 
prepare error message 
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****************************** 



CD5F 


20 


6F 


CC 


JSR 


$CC6F 


CD62 


20 


42 


CD 


JSR 


SCD42 


CD65 


B9 


44 


02 


LDA 


$0244, Y 


CD68 


99 


3E 


02 


STA 


S023E.Y 


CD6B 


A9 


FF 




LDA 


#$FF 


CD6D 


99 


44 


02 


STA 


$0244, Y 


CD70 


4C 


94 


CI 


JMP 


$C194 


************ 


it*** ************ * 


CD73 


20 


F2 


CD 


JSR 


SCDF2 


CD76 


20 


E8 


D4 


JSR 


$D4E8 


CD79 


A8 






TAY 




CD7A 


88 






DEY 




CD7B 


C9 


02 




CMP 


#$02 


CD7D 


BO 


02 




BCS 


$CD81 


CD7F 


A0 


01 




LDY 


#$01 


CD81 


A9 


00 




LDA 


#$00 


CD83 


20 


C8 


D4 


JSR 


$D4C8 


CD86 


98 






TYA 




CD87 


20 


Fl 


CF 


JSR 


$CFF1 


CD8A 


8A 






TXA 




CD8B 


48 






PHA 




CD8C 


20 


64 


D4 


JSR 


$D464 


CD8F 


68 






PLA 




CD90 


AA 






TAX 




CD91 


20 


EE 


D3 


JSR 


$D3EE 


CD94 


4C 


94 


CI 


JMP 


$C194 



****************************** 

CD97 20 6F CC JSR SCC6F 

CD9A 20 F2 CD JSR $CDF2 

CD9D 20 64 D4 JSR $D464 

CDAO 4C 94 CI JMP $C194 

****************************** 



CDA3 


20 


58 


F2 


JSR 


$F258 


CDA6 


20 


36 


CD 


JSR 


$CD36 


CDA9 


A9 


00 




LDA 


#$00 


CDAB 


85 


6F 




STA 


$6F 


CDAD 


A6 


F9 




LDX 


$F9 


CDAF 


BD 


EO 


FE 


LDA 


$FEE0,X 


CDB2 


85 


70 




STA 


$70 


CDB4 


20 


BA 


CD 


JSR 


$CDBA 


CDB7 


4C 


94 


CI 


JMP 


SC194 


CDBA 


6C 


6F 


00 


JMP 


($006F) 


***************************** 


CDBD 


20 


D2 


CD 


JSR 


$CDD2 


CDC0 


A5 


F9 




LDA 


SF9 


CDC2 


OA 






ASL 


A 


CDC3 


AA 






TAX 




CDC4 


AD 


86 


02 


LDA 


$0286 


CDC7 


95 


99 




STA 


$99, X 



Ul command, sub. for 'Block-Read' 

get parameters of the command 

read block from disk 

end pointer 

save as data byte 

end pointer to $FF 

done, prepare error message 

B-w command, 'Block-Write' 

open channel 

set buffer pointer 



buffer pointer lo less than 2? 
no 



buffer pointer to zero 
write byte in buffer 



write block to disk 



get byte from buffer 
done, error message 

U2, sub for 'Block-Write' 

get command parameters 

open channel 

and write block to disk 

done 

'B-E' command, 'Block-Execute' 

(RTS) 

open channel and read block 

address low 
buffer number 
buffer address high 

execute routine 

done 

jump to routine 

'B-P' command, 'Block-Pointer' 

open channel, get buffer number 

buffer number 

* 2 

as index 

pointer value 

save as buffer pointer 
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CDC9 20 2F Dl JSR $D12F 
CDCC 20 EE D3 JSR $D3EE 
CDCF 4C 94 CI JMP SC194 



prepare a byte in buffer 

for output 

done 



****************************** open channel 



CDD2 
CDD4 
CDD6 
CDD9 
CDDA 
CDDB 
CDDC 
CDDE 
CDEO 
CDE2 

CDE5 
CDE7 
CDEA 
CDEC 
CDEF 
CDF1 



02 



A6 D3 

E6 D3 

BD 85 

A8 

88 

88 

CO 0C 

90 05 

A9 70 

4C C8 CI 

85 83 

20 EB DO 

B0 F4 

20 93 DF 

85 F9 
60 



LDX $D3 

INC $D3 

LDA $0285, X 

TAY 

DEY 

DEY 

CPY #$0C 

BCC $CDE5 

LDA #$70 

JMP $C1C8 

STA $83 
JSR $D0EB 
BCS $CDE0 
JSR $DF93 
STA $F9 
RTS 



****************************** 



CDF2 
CDF5 
CDF7 
CDFA 
CDFC 
CDFE 
CE01 
CE03 
CE06 
CE08 
CE0B 



20 D2 CD 
A6 D3 
BD 85 02 
29 01 
85 7F 
BD 87 02 
85 81 
BD 86 02 
85 80 
20 5F D5 
4C 00 CI 



JSR $CDD2 
LDX $D3 
LDA $0285, X 
AND #$01 
STA $7F 
LDA $0287, X 
STA $81 
LDA $0286, X 
STA $80 
JSR $D55F 
JMP $000 



****************************** 



CE0E 
CE11 
CE14 
CE16 
CE18 
CE1B 
CE1D 
CE1F 
CE21 
CE23 
CE25 
CE26 
CE27 
CE29 
CE2B 



20 
20 
A5 90 
8 5 D7 
20 71 
E6 D7 
E6 D7 
A5 8B 
85 D5 
A5 90 
OA 
18 
69 
85 
60 



2C CE 

6E CE 



CE 



10 
D6 



JSR 
JSP 
LDA 
STA 
JSR 
INC 
INC 
LDA 
STA 
LDA 
ASL 
CLC 
ADC 
STA 
RTS 



$CE2C 

$CE6E 

$90 

$D7 

$CE71 

$D7 

$D7 

$8B 

$D5 

$90 

A 

#$10 
$D6 



buffer number 



buffer number smaller than 14? 
yes 

70, "no channel' 

secondary address 
open channel 

already allocated, 70 'no channel] 
buffer number 
set 



check buffer no. and open chann;| 
channel number 
buffer address 

drive number 

sector 

track 

track and sector ok? 

turn LED on 

set pointer for rel-file 

record number * record length 

divide by 254 

remainder = pointer in data blocj 

data pointer 

divide by 120 = side-sector # 

data ptr + 2 (track/sector ptr! 
result of division 
equals side-sector number 
remainder 
times 2 

plus 16 

=ptr in side-sector to data bloc 



****************************** 

CE2C 20 D9 CE JSR $CED9 erase work storage 
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CE2F 


85 


92 


STA 


$92 


CE31 


A6 


82 


LDX 


$82 


CE33 


B5 


B5 


LDA 


$B5,X 


CE35 


85 


90 


STA 


$90 


CE37 


B5 


BB 


LDA 


$BB,X 


CE39 


85 


91 


STA 


$91 


CE3B 


DO 


04 


BNE 


$CE41 


CE3D 


A5 


90 


LDA 


$90 


CE3F 


FO 


OB 


BEO 


$CE4C 


CE41 


A5 


90 


LDA 


$90 


CE43 


38 




SEC 




CE44 


E9 


01 


SBC 


#$01 


CE46 


85 


90 


STA 


$90 


CE48 


BO 


02 


BCS 


SCE4C 


CE4A 


C6 


91 


DEC 


$91 


CE4C 


B5 


C7 


LDA 


$C7,X 


CE4E 


85 


6F 


STA 


$6F 


CE50 


46 


6F 


LSR 


$6F 


CE52 


90 


03 


BCC 


$CE57 


CE54 


20 


ED CE 


JSR 


$CEED 


CE57 


20 


E5 CE 


JSR 


$CEE5 


CE5A 


A5 


6F 


LDA 


$6F 


CE5C 


DO 


F2 


BNE 


$CE50 


CE5E 


A5 


D4 


LDA 


$D4 


CE60 


18 




CLC 




CE61 


65 


8B 


ASC 


$8B 


CE63 


85 


8B 


STA 


$8B 


CE6 5 


90 


Ofi 


BCC 


$CE6D 


CE67 


E6 


8C 


INC 


$8C 


CE69 


DO 


02 


BNE 


$DE6D 


CE6B 


E6 


8D 


INC 


$8D 


CE6D 


60 




RTS 




**************************** 


CE6E 


A9 


FE 


LDA 


#$FE 


CE70 


2C 




.BYTE $2C 


***************** 


XXXXXXXWXX1 


CE71 


A9 


78 


LDA 


#$78 


CF7 3 


85 


6F 


STA 


$6F 


CE75 


A2 


03 


LDX 


#$03 


CE77 


B5 


8F 


LDA 


$8F,X 


CE79 


48 




PHA 




CE7A 


B5 


8A 


LDA 


$8A,X 


CE7C 


95 


8F 


STA 


$8F,X 


CE7E 


68 




PLA 




CE7F 


95 


8A 


STA 


$8A,X 


CE81 


CA 




DEX 




CE82 


DO 


F3 


BNE 


SCE77 


CE8 4 


20 


D9 CE 


JSP 


$CED9 


CE87 


A2 


00 


LDX 


#$00 


CE89 


B5 


90 


LDA 


$90, X 


CE8B 


95 


8F 


STA 


$ 8 F , X 


CE8D 


E8 




INX 




CE8E 


EO 


04 


CPX 


#$04 



channel number 
record number lo 

record number hi 



record number not zero? 



then subtract one 



record length 



record number * record length 
shift register left 



result in $8B/$8C/$8D 



divide by 254, calculate block # 
254 



divide by 120, calculate 
side-sector number 
divisor 



erase work storage 
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CE90 


90 


F7 


BCC 


SCE89 


CE92 


A9 


00 


LDA 


#$00 


CE94 


85 


92 


ST A 


$92 


CE96 


24 


6F 


BIT 


$6F 


CE98 


30 


09 


BMI 


$CEA3 


CE9A 


06 


8F 


ASL 


$8F 


CE9C 


08 




PHP 




CE9D 


46 


8F 


LSR 


$8F 


CE9F 


28 




PLP 




CEAO 


20 


E6 CE 


JSR 


$CEE6 


CEA3 


20 


ED CE 


JSR 


SCEED 


CEA6 


20 


E5 CE 


JSR 


$CEE5 


CEA9 


24 


6F 


BIT 


$6F 


CEAB 


30 


03 


BMI 


SCEBO 


CEAD 


20 


E2 CE 


JSR 


SCEE2 


CEBO 


A5 


8F 


LDA 


$8F 


CEB2 


18 




CLC 




CEB3 


65 


90 


ADC 


$90 


CEB5 


85 


90 


STA 


$90 


CEB7 


90 


06 


BCC 


$CEBF 


CEB9 


E6 


91 


INC 


$91 


CEBB 


DO 


02 


BNE 


$CEBF 


CEBD 


E6 


92 


INC 


$92 


CEBF 


A5 


92 


LDA 


$92 


CEC1 


05 


91 


ORA 


$91 


CEC3 


DO 


C2 


BNE 


$CE87 


CEC5 


A5 


90 


LDA 


$90 


CEC7 


38 




SEC 




CEC8 


E5 


6F 


SBC 


$6F 


CECA 


90 


OC 


BCC 


$CED8 


CECC 


E6 


8B 


INC 


$8B 


CECE 


DO 


06 


BNE 


$CED6 


CEDO 


E6 


8C 


INC 


$8C 


CED2 


DO 


02 


BNE 


SCED6 


CED4 


85 


90 


STA 


$90 


CED8 


60 




RTS 





shift register 1 left 

add register to register 1 

shift register 1 left 



left-shift register 1 twice 



quotient in $8B/$8C/$8D 



remainder in $90 



****************************** erase work storage 

CED9 A9 00 LDA #$00 

CEDB 85 8B STA $8B 

CEDD 85 8C STA $8C 

CEDF 85 8D STA $8D 

CEE1 60 RTS 

****************************** left-shift 3-byte register twici 
CEE2 20 E5 CE JSR $CEE5 

****************************** left-shift 3-byte register once 

CEE5 18 CLC 

CEE6 29 90 ROL $90 

CEE8 26 91 ROL $91 

CEEA 26 92 ROL $92 

CEEC 60 RTS 

****************************** 
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CEED 


18 






CLC 






CEEE 


A2 


FD 




LDX 


#$FD 




CEFO 


B5 


8E 




LDA 


$8E,X 


register $90/$91/$92 


CEF2 


75 


93 




ADC 


$93, X 


add to register $8B/$8 


CEF4 


95 


8E 




STA 


$8E,X 




CEF6 


E8 






I NX 






CEF7 


DO 


F7 




BNE 


$CEF0 




CEF9 


60 






RTS 






CEFA 


A2 


00 




LDX 


#$00 




CEFC 


8A 






TXA 






CEFD 


95 


FA 




STA 


$FA,X 




CEFF 


E8 






I NX 






CFOO 


EO 


04 




CPX 


#$04 




CF02 


DO 


F8 




BNE 


SCEFC 




CF04 


A9 


06 




LDA 


#$06 




CF06 


95 


FA 




STA 


$FA,X 




CF08 


60 






RTS 






CF09 


AO 


04 




LDY 


#$04 




CFOB 


A6 


82 




LDX 


$82 


channel number 


CFOD 


B9 


FA 


00 


LDA 


$0OFA,Y 




CF10 


96 


FA 




STX 


$FA,Y 




CF12 


C5 


82 




CMP 


$82 


channel number 


CF14 


FO 


07 




BEO 


$CF1D 




CF16 


88 






DEY 






CF17 


30 


El 




BMI 


$CEFA 




CF19 


AA 






TAX 






CF1A 


4C 


OD 


CF 


JMP 


$CF0D 




CF1D 


60 






RTS 






CF1E 


20 


09 


CF 


JSR 


$CF09 




CF21 


20 


B7 


DF 


JSR 


$DFB7 




CF24 


DO 


46 




BNE 


SCF6C 




CF26 


20 


D3 


Dl 


JSR 


$D1D3 


set drive number 


CF29 


20 


8E 


D2 


JSR 


SD28E 




CF2C 


30 


48 




BMI 


$CF76 




CF2E 


20 


C2 


DF 


JSR 


SDFC2 




CF31 


A5 


80 




LDA 


$80 


track 


CF33 


48 






PHA 






CF34 


A5 


81 




LDA 


$81 


sector 


CF36 


48 






PHA 






CF37 


A9 


01 




LDA 


#$01 




CF39 


20 


F6 


D4 


JSR 


SD4F6 


get byte 1 from buffer 


CF3C 


85 


81 




STA 


$81 


sector 


CF3E 


A9 


00 




LDA 


#$00 




CF40 


20 


F6 


D4 


JSR 


SD4F6 


get byte from buffer 


CF43 


85 


80 




STA 


$80 


track 


CF45 


FO 


IF 




BEO 


SCF66 




CF47 


20 


25 


Dl 


JSR 


SD125 


check file type 


CF4A 


FO 


OB 




BEO 


$CF57 


rel-f lie? 


CF4C 


20 


AB 


DD 


JSR 


$DDAB 




CF4F 


DP 


06 




BNE 


$CF57 




CF51 


20 


8C 


CF 


JSR 


$CF8C 




CF54 


4C 


5D 


CF 


JMP 


SCF5D 
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CF57 
CF5A 
CF5D 
CF5E 
CF60 
CF61 
CF63 

CF66 
CF67 
CF69 
CF6A 
CF6C 
CF6F 
CF72 
CF73 



CF76 
CF7 8 

CF7B 
CF7E 
CF81 
CF83 
CF86 
CF88 
CF8B 



20 8C CF JSR $CF8C 



20 57 DE 

68 

85 81 

68 

85 80 



JSR $DE57 

PLA 

STA $81 

PLA 

STA $80 



4C 6F CF JMP SCF6F 



68 

85 81 

68 

85 80 

20 8C CF 

20 93 DF 

AA 

4C 99 D5 



A9 70 
4C C8 CI 



PLA 

STA $81 

PLA 

STA $80 

JSR SCF8C 

JSR $DF93 

TAX 

JMP $D599 

LDA #$70 
JMP SC1C8 



20 09 CF JSR $CF09 



20 B7 DF 

DO 08 

20 8E D2 

30 EE 

20 C2 DF 

60 



JSR $DFB7 
BNE SCF8B 
JSR SD28E 
BMI SCF76 
JSR $DFC2 
RTS 



****************************** 



CF8C 
CF8E 
CF90 
CF9 2 
CF94 
CF96 
CF98 
CF9A 



A6 82 
B5 A7 
49 80 
95 A7 
B5 AE 
49 80 
95 AE 
60 



LDX $82 
LDA $A7,X 
EOR #$80 
STA $A7,X 
LDA $AE,X 
EOR #$80 
STA $AE,X 
RTS 



****************************** 



CF9B 
CF9D 
CF9F 
CFA2 
CFA5 
CFA8 
CFAA 
CFAC 
CFAF 
CFB1 
CFB3 
CFB5 

CFB7 
CFB9 



A2 12 

86 83 

20 07 Dl 

20 00 CI 

20 25 Dl 

90 05 

A9 20 

20 9D DD 

A5 83 

C9 OF 

F0 23 

DO 08 

A5 84 

29 8F 



LDX 
STX 
JSR 
JSR 
JSR 
BCC 
LDA 
JSR 
LDA 
CMP 
BEO 
BNE 



#$12 

$83 

$D107 

SC100 

$D125 

$CFAF 

#$20 

SDD9D 

$83 

#$0F 

$CFD8 

$CFBF 



get sector 

and track number 

get back sector 
and track number 

and verify 

70, 'no channel' 



LDA $84 
AND #$8F 



change buffer 
channel number 



rotate bit 7 in table 



write data byte in buffer 
channel 18 

open write channel 
turn LED on 
check file type 
no rel-file 

change buffer 

secondary address 

15? 

yes 

no 

secondary address 
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CFBB 


C9 


OF 




CMP 


#$0F 


CFBD 


BO 


19 




BCS 


$CFD8 


CFBF 


20 


25 


Dl 


JSR 


$D125 


CFC2 


BO 


05 




BCS 


SCFC9 


CFC4 


A5 


85 




LDA 


$85 


CFC6 


4C 


9D 


Dl 


JMP 


$D19D 


CFC9 


DO 


03 




BNE 


$CFCE 


CFCB 


4C 


AB 


EO 


JMP 


$E0AB 


CFCE 


A5 


85 




LDA 


$85 


CFDO 


20 


Fl 


CF 


JSR 


SCFF1 


CFD3 


A4 


82 




LDY 


$82 


CFD5 


4C 


EE 


D3 


JMP 


SD3EE 


CFD8 


A9 


04 




LDA 


#$04 


CFDA 


85 


82 




STA 


$82 


CFDC 


20 


E8 


D4 


JSR 


$D4E8 


CFDF 


C9 


2A 




CMP 


#$2A 


CFE1 


FO 


05 




BEO 


SCFE8 


CFE3 


A5 


85 




LDA 


$85 


CFE5 


20 


Fl 


CF 


JSR 


SCFF1 


CFE8 


A5 


F8 




LDA 


$F8 


CFEA 


FO 


01 




BEO 


$CFED 


CFEC 


60 






RTS 




CFED 


EE 


55 


02 


INC 


$0255 


CFFO 


60 






RTS 




***************************** 


CFF1 


48 






PHA 




CFF2 


20 


93 


DF 


JSR 


$DF93 


CFF5 


10 


06 




BPL 


SCFFD 


CFF7 


68 






PLA 




CFF8 


A9 


61 




LDA 


#$61 


CFFA 


4C 


C8 


CI 


JMP 


SC1C8 


CFFD 


OA 






ASL 


A 


CFFE 


AA 






TAX 




CFFF 


68 






PLA 




D0O0 


81 


99 




STA 


(S99,X) 


D002 


F6 


99 




INC 


$99, X 


D004 


60 






RTS 





greater than 15? 

then input buffer 

check file type 

rel-file or direct access? 

data byte 

write in buffer 

direct access file? 

write data byte in rel-file 



write data byte in buffer 

channel number 

prepare next byte for output 

channel 4 

corresponding input buffer 

set buffer pointer 

40 

buffer end? 

write data byte in buffer 

end flag set? 

yes 



set command flag 



write data byte in buffer 
save data byte 
get buffer number 
associated buffer? 



61 , ' file not open' 
buffer number times 2 
as index 
data byte 
write in buffer 
increment buffer pointer 



****************************** 

D005 20 Dl CI JSR $C1D1 
D008 20 42 DO JSR $D042 
D00B 4C 94 CI JMP $C194 

****************************** 



D00E 
D011 
D012 
D014 
D016 
D019 



20 OF Fl 

A8 

B6 A7 

E0 FF 

48 

20 8E D2 



JSR $F10F 

TAY 

LDX SA7,Y 

CPX #$FF 

PHA 

JSR $D28E 



I-command, Initialize 
find drive number 
load BAM 
prepare disk status 
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D01C AA TAX 

D01D A9 70 LDA #$70 

D021 f~20 48 E6 JSR $E648 70, 'no channel' 

D024 "68 PLA 

DO 25 A8 TAY 

DO 26 8 A TXA 

D027 09 80 ORA #$80 

D029 99 A7 00 STA $00A7,Y 

D0 2C 8A TXA 

D02D 29 OF AND #$0F 

D02F 85 F9 STA $F9 

D031 A2 00 LDA #$00 

D033 86 81 STX $81 sector 

D035 AE 85 FE LDX $FE85 18 

D038 86 80 STX $80 track 18 

D03A 20 D3 D6 JSR $D6D3 transmit param to disk controller 

D03D A9 B0 LDA #$B0 command code 'read block header' 

D03F 4C 8C D5 JMP $D58C transmit to disk controller 

****************************** load BAM 

D042 20 Dl F0 JSR $F0D1 

D045 20 13 D3 JSR $D313 

D048 20 0E DO JSR $D00E read block 

D04B A6 7F LDX $7F drive number 

D04D A9 00 LDA #$00 

D04F 9D 51 02 STA $0251, X reset flag for 'BAM changed' 

DO 5 2 8 A TXA 

D053 OA ASL A 

DO 5 4 AA TAX 

D055 A5 16 LDA $16 

D057 95 12 STA $12, X 

D059 A4 17 LDA $17 save ID 

D05B 95 13 STA $13, X 

D05D 20 86 D5 JSR SD586 

D060 A5 F9 LDA $F9 buffer number 

D062 0A ASL A 

DO 6 3 AA TAX 

D064 A9 02 LDA #$02 buffer pointer to $200 

D066 95 99 STA $99, X 

D068 Al 99 LDA ($99,X) get character from buffer 

D06A A6 7F LDX $7F drive number 

D06C 9D 01 01 STA $0101, X 

D06F A9 00 LDA #$00 

D071 95 1C STA $1C,X flag for write protect 

D073 95 FF STA $FF,X flag for read error 

****************************** calculate blocks free 

D075 20 3A EF JSR $EF3A buffer address to S6D/S6E 

LDY #$04 begin at position 4 

LDA #$00 

TAX 

CLC 

ADC ($6D),Y add no. of free blocks per track 

BCC $D083 

INX X as hi-byte 
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D078 


A0 


04 


D07A 


A9 


00 


D07C 


AA 




D07D 


18 




D07E 


71 


6D 


D080 


90 


01 


D08 2 


E8 
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D083 


C8 






INY 






D084 


C8 






INY 




plus 4 


D085 


C8 






INY 






D086 


C8 






I NY 






D087 


CO 


48' 




CPY 


#$48 


track 18? 


D089 


FO 


F8 




BEO 


SD083 


then skip 


D08B 


CO 


90 




CPY 


#$90 


last track number? 


D08D 


DO 


EE 




BNE 


$D07D 


no 


D08F 


48 






PHA 




lo-byte 


D090 


8A 






TXA 




hi-by te 


D091 


A6 


7F 




LDX 


$7F 


drive number 


D093 


9D 


FC 


02 


STA 


S02FCX 


hi-Dyte to $2B'C 


D096 


68 






PLA 




lo-byte 


D097 


9D 


FA 


02 


STA 


$02FA,X 


to $2FA 


D09A 


60 






RTS 






****************************** 




D09B 


20 


DO 


D6 


JSR 


SD6D0 


parameters to disk controller 


D09E 


20 


C3 


DO 


JSR 


SD0C3 


read block 


D0A1 


20 


99 


D5 


JSR 


$D599 


ok? 


D0A4 


20 


37 


Dl 


JSR 


$D137 


get byte from buffer 


D0A7 


85 


80 




STA 


$80 


track 


D0A9 


20 


37 


Dl 


JSR 


SD137 


next byte from buffer 


DOAC 


85 


81 




STA 


$81 


sector 


DOAE 


60 






RTS 






DOAF 


20 


9B 


DO 


JSR 


$D09B 




D0B2 


A5 


80 




LDA 


$80 


track 


D0B4 


DO 


01 




BNE 


SD0B7 




D0B6 


60 






RTS 






D0B7 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


DOBA 


20 


DO 


D6 


JSR 


$D6D0 


parameters to disk controller 


DOBD 


20 


C3 


DO 


JSR 


$D0C3 


read block 


DO CO 


4C 


IE 


CF 


JMP 


$CF1E 


change buffer 


****************************** 


read block 


D0C3 


A9 


80 




LDA 


#$80 


code for ' read' 


D0C5 


DO 


02 




BNE 


SD0C9 




****************************** 


write block 


D0C7 


A9 


90 




LDA 


#$90 


code for 'write' 


D0C9 


8D 


4D 


02 


STA 


S024D 


save 


DOCC 


20 


93 


DF 


JSR 


SDF93 


get buffer number 


DOCF 


AA 






TAX 






DODO 


20 


06 


D5 


JSR 


$D506 


get track/sector, read/write 1 


D0D3 


8A 






TXA 






D0D4 


48 






PHA 






DOD5 


OA 






ASL 


A 


buffer pointer times 2 


DOD6 


AA 






TAX 






D0D7 


A9 


00 




LDA 


#$00 




D0D9 


95 


99 




STA 


$99, X 


pointer in buffer to zero 


DODB 


20 


25 


Dl 


JSR 


SD125 


get file type 


DODE 


C9 


04 




CMP 


#$04 


rel-file or direct access? 


DOEO 


BO 


06 




BCS 


SD0E8 


yes 


D0E2 


F6 


B5 




INC 


$B5,X 
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D0E4 


DO 


02 




BNE 


$D0E8 


increment block counter 


D0E6 


F6 


BB 




INC 


$BB,X 




D0E8 


68 






PLA 






D0E9 


AA 






TAX 






DOEA 


60 






RTS 






****************************** 


open channel for reading 


DOEB 


A5 


83 




LDA 


$83 


secondary address 


DOED 


C9 


13 




CMP 


#$13 


19 


DOEF 


90 


02 




BCC 


SD0F3 


smaller? 


D0F1 


29 


OF 




AND 


#$0F 




D0F3 


C9 


OF 




CMP 


#$0F 




D0F5 


DO 


02 




BNE 


SD0F9 




D0F7 


A9 


10 




LDA 


#$10 


16 


D0F9 


AA 






TAX 






DO FA 


38 






SEC 






DOFB 


BD 


2B 


02 


LDA 


$022B,X 




DOFE 


30 


06 




BMI 


$D106 




D100 


29 


OF 




AND 


#$0F 




D102 


85 


82 




STA 


$82 




D104 


AA 






TAX 






D105 


18 






CLC 




flag for ok 


D106 


60 






RTS 






************* 


XXX 


kxxxxxxx****** 


open cnannel for writing 


D107 


A4 


83 




LDA 


$83 


secondary address 


D109 


C9 


13 




CMP 


#$13 


19 


D10B 


90 


02 




BCC 


$D10F 


smaller? 


DIOD 


29 


OF 




AND 


#$0F 




DIOF 


AA 






TAX 






DUO 


BD 


2B 


02 


LDA 


$022B,X 


channel number 


D113 


A8 






TAY 






D114 


OA 






ASL 


A 




D115 


90 


OA 




BCC 


$D121 




D117 


30 


OA 




BMI 


SD123 




D119 


98 






TYA 






D11A 


29 


OF 




AND 


#$0F 




D11C 


85 


82 




STA 


$82 




DUE 


AA 






TAX 






D11F 


18 






CLC 




flag for ok 


D120 


60 






RTS 






D121 


30 


F6 




BMI 


$D119 




D123 


38 






SEC 




flag for channel allocat< 


D124 


60 






RTS 






****************************** 


check for file type 'REL 


D125 


A6 


82 




LDX 


$82 




D127 


B5 


EC 




LDA 


$EC,X 




D129 


4A 






LSR 


A 




D12A 


29 


07 




AND 


#S07 




D12C 


C9 


04 




CMP 


#$04 


'REL'? 


D12E 


60 






RTS 







****************************** 



get buffer and channel numbers 
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D12F 
D132 
D133 
D134 
D136 



20 93 DF 

0A 

AA 

A4 82 

60 



JSR $DF93 
ASL A 
TAX 

LDY $82 
RTS 



****************************** 



D137 
D13A 
D13D 
D13F 
D141 
D142 
D144 
D147 
D149 
D14B 
D14D 
D14E 
D150 
D151 
D153 
D155 



20 2F Dl 
B9 44 02 
F0 12 
Al 99 
48 

B5 99 
D9 44 02 
DO 04 
A9 FF 
95 99 
68 

F6 99 
60 

Al 99 
F6 99 
60 



JSR $D12F 

LDA $0244, Y 

BEO SD151 

LDA ($99, X) 

PHA 

LDA $99, X 

CMP $0244, Y 

BNE SD14D 

LDA #$FF 

STA $99, X 

PLA 

INC $99, X 

RTS 

LDA ($99, X) 

INC $99, Y 

RTS 



get buffer number 



get a byte from buffer 

get buffer and channel number 

end pointer 

get byte from buffer 

buffer pointer 
equal end pointer? 
no 

buffer pointer to -1 

data byte 

increment buffer pointer 

get character from buffer 
increment buffer pointer 



****************************** 



D156 
D159 
D15B 
D15D 
Dlj60 
D162 
D164 
D167 
D169 

D16A 
D16D 
D16F 
D172 
D175 
D177 
D179 
D17B 
D17E 
D180 
D183 
D186 
D189 
D18C 
D18F 
D191 



20 
DO 
85 
B9 
F0 
A9 
99 
A5 
60 



Dl 



02 



37 

36 

85 

44 

08 

80 

F2 00 

85 



20 IE CF 
A9 00 
20 C8 



20 
C9 
F0 



D4 
37 Dl 



00 

19 
85 80 
20 37 Dl 
85 81 
20 IE CF 
20 D3 Dl 
20 DO D6 
20 C3 DO 
20 IE CF 
A5 8 5 
60 



JSR $D137 
BNE $D191 
STA $85 
LDA $0244, Y 
BEO $D16A 
LDA #$80 
STA $00F2,Y 
LDA $85 
RTS 

JSR SCF1E 
LDA #$00 
JSR $D4C8 
JSR $D137 
CMP #$00 
BEO SD192 
STA $80 
JSR $D137 
STA $81 
JSR $CF1E 
JSR $D1D3 
JSR $D6D0 
JSR SD0C3 
JSR $CF1E 
LDA $85 
RTS 



get byte and read next block 

get byte from buffer 

not last character? 

save data byte 

end pointer 

yes 

READ-flag 
data byte 



change buffer and read next block 

set buffer pointer to zero 

get first byte from buffer 

track number zero 

yes, then last block 

save last track number 

get next byte 

save as following track 

change buffer and read next block 

save drive number 

param to disk controller 

transmit read command 

change buffer and read block 

get data byte 



D192 20 37 Dl 
D195 A4 82 
D197 99 44 02 



JSR $D137 
LDY $8 2 
STA $0244, Y 



get next byte from buffer 
save as end pointer 
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D19A 


A5 


85 




LDA 


$85 


D19C 


60 






RTS 




*************************** 


D19D 


20 


Fl 


CF 


JSR 


$CFF1 


D1A0 


F0 


01 




BEO 


SD1A3 


D1A2 


60 






RTS 




D1A3 


20 


D3 


Dl 


JSR 


$D1D3 


D1A6 


20 


IE 


Fl 


JSR 


SF11E 


D1A9 


A9 


00 




LDA 


t$00 


D1AB 


20 


C8 


D4 


JSR 


SD4C8 


D1AE 


A5 


80 




LDA 


$80 


D1B0 


20 


Fl 


CF 


JSR 


SCFF1 


D1B3 


A5 


81 




LDA 


$81 


D1B5 


20 


Fl 


CF 


JSR 


$CFF1 


D1B8 


20 


C7 


DO 


JSR 


$D0C7 


D1BB 


20 


IE 


CF 


JSR 


$CF1E 


D1BE 


20 


DO 


D6 


JSR 


$D6D0 


D1C1 


A9 


02 




LDA 


#S02 


D1C3 


4C 


C8 


D4 


JMP 


$D4C8 


*************************** 


D1C6 


85 


6F 




STA 


$6F 


D1C8 


20 


E8 


D4 


JSR 


SD4E8 


D1CB 


18 






CLC 




D1CC 


65 


6F 




ADC 


$6F 


DICE 


95 


99 




STA 


$99, X 


DIDO 


85 


94 




STA 


$94 


D1D2 


60 






RTS 





get data byte back 

byte in buffer and write block 
byte in buffer 
buffer full? 



get drive number 

find free block in BAM 

buffer pointer to zero 

track number as first byte 

sector number as second byte 

write block 

change buffer 

param to disk controller 

buffer pointer to 2 

increment buffer pointer 

get buffer pointer 

and increment 



##********» 



******************* 



D1D3 



20 93 DF JSR $DF93 



D1D6 


AA 






TAX 




D1D7 


BD 


5B 


02 


LDA 


$025B,X 


D1DA 


29 


01 




AND 


#$01 


D1DC 


85 


7F 




STA 


$7F 


D1DE 


60 






RTS 




***************************** 


D1DF 


38 






SEC 




D1E0 


B0 


01 




BCS 


$D1E3 


***************************** 


D1E2 


18 






CLC 




D1E3 


08 






PHP 




D1E4 


85 


6F 




STA 


$6F 


D1E6 


20 


27 


D2 


JSR 


$D227 


D1E9 


20 


7F 


D3 


JSR 


$D37F 


D1EC 


85 


82 




STA 


$82 


D1EE 


A6 


83 




LDX 


$83 


D1F0 


28 






PLP 




D1F1 


90 


02 




BCC 


SD1F5 


D1F3 


09 


80 




ORA 


#$80 


D1F5 


9D 


2B 


02 


STA 


$022B,X 


D1F8 


29 


3F 




AND 


#$3F 



get drive number 
get drive number 



isolate drive number 
and save 



find write channel and buffer 
flag for writing 



find read channel and buffer 

flag for reading 

save 

buffer number 

close channel 

allocate free channel 

channel number 

secondary address 

read channel? 
flag for writing 
set 
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D1FA 


A8 






TAY 




D1FB 


A9 


FF 




LDA 


#$FF 


D1FD 


99 


A7 


00 


STA 


$0OA7,Y 


D200 


99 


AE 


00 


STA 


S0OAE,Y 


D203 


99 


CD 


00 


STA 


S00CD,Y 


D206 


C6 


6F 




DEC 


$6F 


D208 


30 


1C 




BMI 


$D226 


D20A 


20 


8E 


D2 


JSR 


SD28E 


D20D 


10 


08 




BPL 


$D217 


D20F 


20 


5A 


D2 


JSR 


SD25A 


D212 


A9 


70 




LDA 


#$70 


D214 


4C 


C8 


CI 


JMP 


SC1C8 


D217 


99 


A7 


00 


STA 


S00A7,Y 


D21A 


C6 


6F 




DEC 


$6F 


D21C 


30 


08 




BMI 


SD226 


D21E 


20 


8E 


D2 


JSR 


SD28E 


D221 


30 


EC 




BMI 


SD20F 


D223 


99 


AE 


00 


STA 


$00AE,Y 


D226 


60 






RTS 




*****************************: 


D227 


A5 


83 




LDA 


$83 


D229 


C9 


OF 




CMP 


#$0F 


D22B 


DO 


01 




BNE 


$D22E 


D22D 


60 






RTS 




D22E 


A6 


83 




LDX 


S83 


D230 


BD 


2B 


02 


LDA 


$022B,X 


D233 


C9 


FF 




CMP 


#$FF 


D235 


FO 


22 




BEO 


SD259 


D237 


29 


3F 




AND 


#$3F 


D239 


85 


82 




STA 


$82 


D23B 


A9 


FF 




LDA 


#$FF 


D23D 


9D 


2B 


02 


STA 


$022B,X 


D240 


A6 


82 




LDX 


$82 


D242 


A9 


00 




LDA 


#$00 


D244 


95 


F2 




STA 


$F2,X 


D246 


20 


5A 


D2 


JSR 


$D25A 


D249 


A6 


82 




LDX 


$82 


D24B 


A9 


01 




LDA 


#$01 


D24D 


CA 






DEX 




D24E 


30 


03 




BMI 


$D253 


D250 


0A 






ASL 


A 


D251 


DO 


FA 




BNE 


SD24D 


D253 


OD 


56 


02 


ORA 


$0256 


D256 


8D 


56 


02 


STA 


$0256 


D259 


60 






RTS 




****************************** 


D2 5A 


A6 


82 




LDX 


$82 


D25C 


B5 


A7 




LDA 


$A7,X 


D25E 


C9 


FF 




CMP 


#$FF 


D260 


FO 


09 




BEO 


SD26B 


D262 


48 






PHA 




D263 


A9 


FF 




LDA 


#$FF 



default value 

write in associated table 

decrement: buffer number 

done already? 

find buffer 

found? 

erase flags in table 

70, 'no channel' 

buffer number in table 

buffer number 

already done? 

find buffer 

not found? 

buffer number in table 



close channel 

secondary address 

15? 

no 

else done already 



channel number 
not associated? 
then done 

channel number 

erase association in table 

erase READ and WRITE flag 
free buffer 
channel number 
set bit 

shift to correct position 
free in allocation register 



free buffer 
channel number 
buffer number 

not associated? 
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D265 
D267 
D268 
D26B 
D26D 
D26F 
D271 
D27 3 
D274 
D276 
D278 
D279 
D27C 
D27E 
D280 
D282 
D284 
D285 
D287 
D289 
D28A 
D28D 



9 5 A7 

68 

20 F3 D2 

A6 82 

B5 AE 

C9 FF 

F0 09 

48 

A9 FF 

95 AE 

68 

20 F3 

A6 82 

B5 CD 

C9 FF 

F0 09 

48 

A9 FF 

9 5 CD 

68 

20 F3 D2 

60 



D2 



STA 
PLA 
JSR 
LDX 
LDA 
CMP 
BEO 
PHA 
LDA 
STA 
PLA 
JSR 
LDX 
LDA 
CMP 

BEO 
PHA 
LDA 
STA 
PLA 
JSR 
RTS 



$A7,X 

$D2F3 

$82 

$AE,X 

#$FF 

SD27C 

#$FF 
$AE,X 

SD2F3 

$82 

$CD,X 

#$FF 

$D28D 

#$FF 
$CD,X 

$D2F3 



erase buffer association 

erase buffer allocation register 
channel number 

associated in second table? 
no 



erase association 

erase buffer in allocation reg. 
channel number 

associated in 3rd table? 
no 



erase association 

erase buffer in allocation reg 



****************************** find buffer 



D28E 
D28F 
D290 
D292 
D295 
D297 
D298 
D29B 
D29D 
D2A0 
D2A1 
D2A3 
D2A5 
D2A7 
D2A9 
D2AB 
D2AE 
D2AF 
D2B0 
D2B1 
D2B3 
D2B6 
D2B7 
D2B8 
D2B9 

D2BA 
D2BC 
D2BF 
D2C2 
D2C4 



48 

A0 01 

20 BA D2 

10 0C 

88 

20 BA D2 

10 06 

20 39 D3 

AA 

30 13 

B5 00 

30 FC 

A5 7F 

95 00 

9D 5B 02 

8A 

0A 

A8 

A9 02 

99 99 00 

68 

A8 

8A 

60 

A2 07 
B9 4F 02 
3D E9 EF 
F0 04 
CA 



TYA 
PHA 
LDY 

JSR 
BPL 
DEY 
JSR 
BPL 
JSR 
TAX 
BMI 
LDA 
BMI 
LDA 
STA 
STA 
TXA 
ASL 
TAY 
LDA 
STA 
PLA 
TAY 
TXA 
RTS 



LDX #$07 
LDA $024F,Y 
AND $EFE9,Y 
BEO $D2C8 
DEX 



#$01 

$D2BA 

$D2A3 

SD2BA 
SD2A3 
SD339 

$D2B6 

S00.X 

SD2A3 

$7F 

$00, X 

$025B,X 



#$02 
$0099, Y 



erase bit 
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D2C5 


10 


F5 




BPL 


$D2BC 






D2C7 


60 






RTS 








D2C8 


B9 


4F 


02 


LDA 


$024F,Y 






D2CB 


5D 


E9 


EF 


EOR 


$EFE9,X 


rotate bit 




D2CE 


99 


4F 


02 


STA 


$024F,Y 






D2D1 


8A 






TXA 




buffer number 




D2D2 


88 






DEY 








D2D3 


30 


03 




BMI 


$D2D8 






D2D5 


18 






CLC 








D2D6 


69 


08 




ADC 


#$08 






D2D8 


AA 






TAX 




buffer number 




D2D9 


60 






RTS 








D2DA 


A6 


82 




LDX 


$82 






D2DC 


B5 


A7 




LDA 


$A7,X 






D2DE 


30 


09 




BMI 


$D2E9 






D2E0 


8A 






TXA 








D2E1 


18 






CLC 








D2E2 


69 


07 




ADC 


#$07 






D2E4 


AA 






TAX 








D2E5 


B5 


A7 




LDA 


$A7,X 






D2E7 


10 


F0 




BPL 


$D2D9 






D2E9 


C9 


FF 




CMP 


#$FF 






D2EB 


F0 


EC 




BEO 


$D2D9 






D2ED 


48 






PHA 








D2EE 


A9 


FF 




LDA 


#$FF 






D2F0 


95 


A7 




STA 


$A7,X 






D2F2 


68 






PLA 








D2F3 


29 


OF 




AND 


#$0F 






D2F5 


A8 






TAY 




buffer number 




D2F6 


C8 






INY 








D2F7 


A2 


10 




LDX 


#$10 


16 




D2F9 


6E 


50 


02 


ROR 


$0250 






D2FC 


6E 


4F 


02 


ROR 


$024F 


rotate 16-bit allocation 


reg. 


D2FF 


88 






DEY 








D300 


DO 


01 




BNE 


SD303 






D302 


18 






CLC 




erase bit for buffer 




D303 


CA 






DEX 








D304 


10 


F3 




BPL 


$D2F9 






D306 


60 






RTS 








****************************** 


close all channels 




D307 


A9 


0E 




LDA 


#$0E 


14 




D309 


85 


83 




STA 


$83 


secondary address 




D30B 


20 


27 


D2 


JSR 


SD227 


close channel 




D30E 


C6 


83 




DEC 


$83 


next secondary address 




D310 


DO 


F9 




BNE 


$D30B 






D312 


60 






RTS 








****************************** 


close channels of other 


drives 


D313 


A9 


0E 




LDA 


#$0E 


14 




D315 


85 


83 




STA 


$83 


secondary address 




D317 


A6 


83 




LDX 


$83 






D319 


BD 


2B 


02 


LDA 


$022B,X 


association table 




D31C 


C9 


FF 




CMP 


#$FF 


channel associated? 





161 



Anatomy of the 1541 Disk Drive 



D31E 


FO 


14 




BEQ 


SD334 


no 




D320 


29 


3F 




AND 


#$3F 






D322 


85 


82 




STA 


$82 


channel number 




D324 


20 


93 


DF 


JSR 


$DF93 


get buffer number 




D327 


AA 






TAX 








D328 


BD 


5B 


02 


LDA 


$025B,X 


drive number 




D3 2B 


29 


01 




AND 


#$01 


isolate 




D32D 


C5 


7F 




CMP 


$7F 


equal to actual drive 


number 


D3 2F 


DO 


03 




BNE 


$D334 


no 




D331 


20 


27 


D2 


JSR 


$D227 


close channel 




D334 


C6 


83 




DEC 


$83 


next channel 




D336 


10 


DF 




BPL 


$D317 






D3 38 


60 






RTS 








****************************** 






D339 


A5 


6F 




LDA 


$6F 






D33B 


48 






PHA 








D3 3C 


A0 


00 




LDY 


#$00 






D33E 


B6 


FA 




LDX 


$FA,Y 






D340 


B5 


A7 




LDA 


$A7,X 






D342 


10 


04 




BPL 


$D348 






D344 


C9 


FF 




CMP 


#$FF 






D346 


DO 


16 




BNE 


$D35E 






D348 


8A 






TXA 








D349 


18 






CLC 








D34A 


69 


07 




ADC 


#$07 






D34C 


AA 






TAX 








D34D 


B5 


A7 




LDA 


$A7,X 






D34F 


10 


04 




BPL 


$D355 






D351 


C9 


FF 




CMP 


#$FF 






D353 


DO 


09 




BNE 


$D35E 






D355 


C8 






INY 








D356 


CO 


05 




CPY 


#$05 






D358 


90 


E4 




BCC 


$D33E 






D35A 


A2 


FF 




LDX 


#$FF 






D35C 


DO 


1C 




BNE 


$D37A 






D35E 


86 


6F 




STX 


$6F 






D360 


29 


3F 




AND 


#$3F 






D362 


AA 






TAX 








D363 


B5 


00 




LDA 


$00, X 






D365 


30 


FC 




BMI 


$D363 






D367 


C9 


02 




CMP 


#$02 






D369 


90 


08 




BCC 


SD373 






D36B 


Ta6 


6F 




LDX 


$6F 






D36D 


\eo 


07 




CPX 


#$07 






D36F 


90 


D7 




BCC 


$D348 






D371 


B0 


E2 




BCS 


$D355 






D373 


A4 


6F 




LDY 


$6F 






D375 


A9 


FF 




LDA 


#$FF 






D377 


99 


A7 


00 


STA 


$00A7,Y 






D37A 


68 






PLA 








D37B 


85 


6F 




STA 


$6F 






D37D 


8A 






TXA 








D37E 


60 






RTS 
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****************************** 



D37F 


AO 


00 




LDY 


#$00 


D381 


A9 


01 




LDA 


#$01 


D38 3 


2C 


56 


02 


BIT 


$0256 


D386 


DO 


09 




BNE 


$D391 


D388 


C8 






INY 




D389 


OA 






ASL 


A 


D38A 


DO 


F7 




BNE 


$D383 


D38C 


A9 


70 




LDA 


#$70 


D38E 


4C 


C8 


CI 


JMP 


$C1C8 


D391 


49 


FF 




EOR 


#$FF 


D393 


2D 


56 


02 


AND 


$0256 


D396 


8D 


56 


02 


STA 


$0256 


D399 


98 






TYA 




D39A 


60 






RTS 




***************************** 


D39B 


20 


EB 


DO 


JSR 


$D0EB 


D39E 


20 


00 


CI 


JSR 


$C100 


D3A1 


20 


AA 


D3 


JSR 


$D3AA 


D3A4 


A6 


82 




LDX 


$82 


D3A6 


BD 


3E 


02 


LDA 


$023E,X 


D3A9 


60 






RTS 





find channel and allocate 

set bit 

channel free? 

rotate bit to left 
all channels checked? 

70, 'no channel' 

rotate bit model 
erase bit 
allocate channel 



get byte for output 

open channel for reading 

turn LED on 

get byte in output register 

channel number 

get byte 



D3AA A6 82 LDX $8 2 

D3AC 20 25 Dl JSR $D125 

D3AF DO 03 BNE $D3B4 

D3B1 4C 20 El JMP $E120 



D3B4 


A5 


83 




LDA 


$83 


D3B6 


C9 


OF 




CMP 


#$0F 


D3B8 


F0 


5A 




BEO 


$D414 


D3BA 


B5 


F2 




LDA 


$F2,X 


D3BC 


29 


08 




AND 


#$08 


D3BE 


DO 


13 




BNE 


$D3D3 


D3C0 


20 


25 


Dl 


JSR 


$D125 


D3C3 


C9 


07 




CMP 


#$07 


D3C5 


DO 


07 




BNE 


$D3CE 


D3C7 


A9 


89 




LDA 


#$89 


D3C9 


95 


F2 




STA 


$F2,X 


D3CB 


4C 


DE 


D3 


JMP 


$D3DE 


D3CE 


A9 


00 




LDA 


#$00 


D3D0 


95 


F2 




STA 


$F2,X 


D3D2 


60 






RTS 




D3D3 


A5 


83 




LDA 


$83 


D3D5 


F0 


32 




BE0 


$D409 


D3D7 


20 


25 


Dl 


JSR 


$D125 


D3DA 


C9 


04 




CMP 


#$04 


D3DC 


90 


22 




BCC 


$D400 


D3DE 


20 


2F 


Dl 


JSR 


$D12F 


D3E1 


B5 


99 




LDA 


$99, X 



channel number 

check file type 

no rel-file? 

get byte from rel-file 

secondary address 

15 

yes, read error channel 

end flag set? 

no 

check file type 

direct access file? 

no 

set READ and WRITE flag 



erase READ and wpite flac 



secondary address 

zero, LOAD? 

check file type 

rel-file or direct access? 

no 

get buffer and channel number 

buffer pointer 
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D3E3 
D3E6 
D3E8 
D3EA 
D3EC 
D3EE 
D3F0 
D3F3 
D3F5 
D3F8 
D3FA 
D3FC 
D3FF 



D9 44 02 
DO 04 
A9 00 
95 99 
F6 99 
Al 99 
99 3E 02 
B5 99 
D9 44 02 
DO 05 
A9 81 
99 F2 00 
60 



CMP 

BNE 
LDA 
STA 
INC 
LDA 
STA 
LDA 
CMP 
BNE 
LDA 
STA 
RTS 



$0244, Y 
SD3EC 
#$00 
$99, X 
$99, X 
($99, X) 
$023E,Y 
$99, X 
$0244, Y 
$D3FF 
#$81 
$00F2,Y 



equal end pointer? 
no 

buffer pointer to zero 
increment buffer pointer 
get byte from buffer 
into output register 
buffer pointer 
equal end pointer? 
no 

set flags 



D400 20 56 Dl JSP SD156 

D403 A6 82 LDX $82 

D405 9D 3E 02 STA $023E,X 

D408 60 RTS 



get byte from buffer 

channel number 

byte in output register 



D409 AD 54 02 LDA $0254 

D40C F0 F2 BEp $D400 

D40E 20 67 ED JSR $ED67 

D411 4C 03 D4 JMP SD403 



flag for directory? 

no 

create directory line 



D414 


20 


E8 


D4 


JSR 


SD4E8 


D417 


C9 


D4 




CMP 


#$D4 


D419 


DO 


18 




BNE 


SD433 


D41B 


A5 


95 




LDA 


$95 


D41D 


C9 


02 




CMP 


#$02 


D41F 


DO 


12 




BNE 


$D433 


D421 


A9 


0D 




LDA 


#$0D 


D423 


85 


85 




STA 


$85 


D425 


20 


23 


CI 


JSR 


$C123 


D428 


A9 


00 




LDA 


#$00 


D42A 


20 


CI 


E6 


JSR 


$E6C1 


D42D 


C6 


A5 




DEC 


SA5 


D42F 


A9 


80 




LDA 


#$80 


D431 


DO 


12 




BNE 


SD445 


D433 


20 


37 


Dl 


JSR 


$D137 


D436 


85 


85 




STA 


$85 


D438 


DO 


09 




BNE 


$D443 


D4 3A 


A9 


D4 




LDA 


#$D4 


D43C 


20 


C8 


D4 


JSR 


$D4C8 


D4 3F 


A9 


02 




LDA 


#$02 


D441 


95 


9A 




STA 


$9A,X 


D443 


A9 


88 




LDA 


#$88 


D445 


85 


F7 




STA 


$F7 


D447 


A5 


85 




LDA 


$85 


D449 


8D 


43 


02 


STA 


$0243 


D44C 


60 






RTS 




AAA************************ 


D44D 


20 


93 


DF 


JSR 


$DF93 


D450 


0A 






ASL 


A 



set buffer pointer 



CR 

in output register 

erase error flags 

create 'ok' message 
set buffer pointer back 
set READ flag 



get byte from buffer 
into output register 



set buf ptr in front of error ptr 

hi-address 
set READ flag 

data byte 

into output register 



read next block 
get buffer number 
times 2 
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D451 


AA 






TAX 


D452 


A9 


00 




LDA #S00 


D454 


95 


99 




STA $99, X 


D4 56 


Al 


99 




LDA ($99,X 


D458 


FO 


05 




BEO SD45F 


D45A 


D6 


99 




DEC $99, X 


D45C 


4C 


56 


Dl 


JMP SD156 


D45F 


60 






RTS 


ft***************************' 


D460 


A9 


80 




LDA #$80 


D462 


DO 


02 




BNE $D466 


x*********xx**x*x**x*xxxxxxit: 


D464 


A9 


90 




LDA #$90 


D466 


05 


7F 




ORA $7F 


D468 


8D 


4D 


02 


STA $024D 


D46B 


A5 


F9 




LDA $F9 


D46D 


20 


D3 


D6 


JSR $D6D3 


D470 


A6 


F9 




LDX $F9 


D47 2 


4C 


93 


D5 


JMP $D593 


*****x*xxxx*x**xx**xx*xxx**x 


D47 5 


A9 


01 




LDA #$01 


D477 


8D 


4A 


02 


STA $024A 


D47A 


A9 


11 




LDA #$11 


D47C 


85 


83 




STA $83 


D47E 


20 


46 


DC 


JSR $DC46 


D481 


A9 


02 




LDA #$02 


D483 


4C 


C8 


D4 


JMP SD4C8 



xx***x*xxxxxxxxxxx**x*xxx*xxx* 

D486 A9 12 LDA #$12 
D488 85 83 STA $83 
D48A 4C DA DC JMP $DCDA 

xxxxxxxxxxx«x«x**x***x*****xxx 



D48D 


20 


3B 


DE 


JSR 


SDE3B 


D490 


A9 


01 




LDA 


#$01 


D492 


85 


6F 




STA 


$6F 


D494 


A5 


69 




LDA 


$69 


D496 


48 






PHA 




D497 


A9 


03 




LDA 


#$03 


D499 


85 


69 




STA 


$69 


D49B 


20 


2D 


Fl 


JSR 


SF12D 


D49E 


68 






PLA 




D49F 


85 


69 




STA 


$69 


D4A1 


A9 


00 




LDA 


#$00 


D4A3 


20 


C8 


D4 


JSR 


$D4C8 


D4A6 


A5 


80 




LDA 


$80 


D4A8 


20 


Fl 


CF 


JSR 


$CFF1 


D4AB 


A5 


81 




LDA 


$81 


D4AD 


20 


Fl 


CF 


JSR 


SCFF1 


D4B0 


20 


C7 


DO 


JSR 


$D0C7 


D4B3 


20 


99 


D5 


JSR 


$D599 



buffer pointer to zero 
get first byte from buffer 
no block following? 
buffer pointer to -1 
read next block 



read block 

command code for reading 

write block 

command code for writing 

drive number 

save code 

param to disk controller 

execute command 

allocate buffer and read block 

file type to sequential 

17 

secondary address 

allocate buffer and read block 

buffer pointer to 2 

allocate new block 

18 

secondary address 

allocate new block 

write directory block 

get track and sector number 

a block 

save step width 10 for block 

allocation 

find free block in BAM 

get step width back 

buffer pointer to zero 

track number in buffer 

sector number in buffer 
write block to disk 
and verify 
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D4B6 


A9 


00 




LDA 


#$00 


D4B8 


20 


C8 


D4 


JSR 


SD4C8 


D4BB 


20 


Fl 


CF 


JSR 


SCFF1 


D4BE 


DO 


FB 




BNE 


SD4BB 


D4C0 


20 


Fl 


CF 


JSR 


$CFF1 


D4C3 


A9 


FF 




LDA 


#$FF 



D4C5 



4C Fl CF JMP SCFF1 



****************************** 



D4C8 


85 


6F 




STA 


S6F 


D4CA 


20 


93 


DF 


JSR 


$DF93 


D4CD 


0A 






ASL 


A 


D4CE 


AA 






TAX 




D4CF 


B5 


9A 




LDA 


$9A,X 


D4D1 


85 


95 




STA 


$95 


D4D3 


A5 


6F 




LDA 


$6F 


D4D5 


95 


99 




STA 


$99, X 


D4D7 


85 


94 




STA 


$94 


D4D9 


60 






RTS 




*************************** 


D4DA 


A9 


11 




LDA 


#$11 


D4DC 


85 


83 




STA 


$83 


D4DE 


20 


27 


D2 


JSR 


$D227 


D4E1 


A9 


12 




LDA 


#$12 


D4E3 


85 


83 




STA 


$83 


D4E5 


4C 


27 


D2 


JMP 


SD227 



****************************** 



D4E8 



20 93 DF JSR $DF93 



D4EB 


0A 




ASL A 


D4EC 


AA 




TAX 


D4ED 


B5 9A 




LDA $9A,X 


D4EF 


85 95 




STA $95 


D4F1 


B5 99 




LDA $99, X 


D4F3 


85 94 




STA $94 


D4F5 


60 




RTS 


***************************** 


D4F6 


85 71 




STA $71 


D4F8 


20 93 


DF 


JSR $DF9 3 


D4FB 


AA 




TAX 


D4FC 


BD EO 


FE 


LDA $FEE0,X 


D4FF 


85 72 




STA $72 


D501 


AO 00 




LDY #$00 


D503 


Bl 71 




LDA ($71),Y 


D505 


60 




RTS 



buffer pointer to zero 
fill buffer with zeroes 

zero as following track 

$FF as number of bytes 

set buffer pointer 
save pointer 
get buffer number 
times 2 

buffer pointer hi 

buffer pointer lo, new value 



close internal channel 
17 

close channel 
18 

close channel 

set buffer pointer 
get buffer number 



buffer pointer hi 
buffer pointer lo 



get byte from buffer 

pointer lo 

get buffer number 

hi-byte buffer address 
pointer hi 

get byte from buffer 



****************************** 



D506 



BD 5B 02 LDA $025B,X 



D509 29 01 AND #$01 

D50B 0D 4D 02 ORA S024D 

D50E A8 PHA 

D50F 86 F9 STX $F9 

D511 8 A TXA 



check track and sector numbers 

command code for disk controller 

drive number 

plus command code 

save 

buffer number 
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D512 
D513 
D514 
D516 
D519 
D51B 
D51D 
D520 
D522 
D523 
D524 
D525 
D527 
D529 
D52B 
D52C 
D52D 
D52E 
D530 
D533 
D535 
D538 
D53A 
D53D 
D53F 
D540 
D543 
D546 
D548 
D54A 
D54D 
D54F 



OA 

AA 

B5 07 

8D 4D 02 

B5 06 

F0 2D 

CD D7 FE 

BO 28 

AA 

68 

48 

29 F0 

C9 90 

DO 4F 

68 

48 

4A 

BO 05 

AD 01 01 

90 03 

AD 02 01 

FO 05 

CD D5 FE 

DO 33 

8A 

20 4B F2 

CD 4D 02 

FO 02 

30 

52 D5 



BO 
20 
A9 66 
4C 45 



E6 



ASL A 

TAX 

LDA $07, X 

STA $024D 

LDA $06, X 

BEO $D54A 

CMP SFED7 

BCS $D54A 

TAX 

PLA 

PHA 

AND #$F0 

CMP #$90 

BNE $D57A 

PLA 

PHA 

LSR A 

BCS SD535 

LDA $0101 

BCC $D538 

LDA $0102 

BEO $D53F 

CMP $FED5 

BNE $D572 

TXA 

JSR $F24B 

CMP $024D 

BEO $D54A 

BCS SD57A 

JSR SD552 

LDA #$66 

JMP $E645 



****************************** 



D552 
D554 
D555 
D556 
D558 
D5 5A 
D55C 
D55E 



A5 F9 
OA 
AA 

B5 06 
85 80 
B5 07 
85 81 
60 



LDA $F9 
ASL A 
TAX 

LDA $06, X 
STA $80 
LDA $07 ,X 
STA $81 
RTS 



times 2 

sector 

save 

track 

66, 'illegal track or sector" 

36, highest track number + 1 

66, 'illegal crack or sector' 

command code 



code for writing? 
no 



'A', format marker 

73, 'cbm dos v2 . 6 1541' 

track number 

get maximum sector number 

compare with sector number 

equal, then error 

smaller? 

get track and sector number 

66, 'illegal track or sector' 

get track and sector number 

buffer number 

*2 

as index 

track 

sector 



D55F 
D561 
D563 
D566 
D568 
D56B 
D56D 
D56F 
D571 



A5 80 
FO EA 
CD D7 FE 
B0 E5 
20 4B F2 
C5 81 
F0 DE 
90 DC 
60 



LDA $80 
BEO $D54D 
CMP SFED7 
BCS $D54D 
JSR $F24B 
CMP $81 
BEO $D54D 
BCC $D54D 
RTS 



track 

zero, then error 

36, maximum track number + 1 

66, 'illegal track or sector' 

get maximum sector numDer 

sector 



D572 
D575 



20 52 D5 
A9 73 



JSR SD552 
LDA #$73 



get track and sector numbei 



167 



Anatomy of the 1541 Disk Drive 



D577 


4C 


45 


E6 


JMP 


$E645 


D57A 


A6 


F9 




LDX 


SF9 


D57C 


68 






PLA 




D57D 


8D 


4D 


02 


STA 


S024D 


D580 


95 


00 




STA 


$00, X 


D58 2 


9D 


5B 


02 


STA 


$025B,X 


D585 


60 






RTS 




****************************** 


D586 


A9 


80 




LDA 


#$80 


D588 


DO 


02 




BNE 


$D58C 


****************************** 


D58A 


A9 


90 




LDA 


#$90 


D58C 


05 


7F 




ORA 


$7F 


D58E 


A6 


F9 




LDX 


$F9 


D590 


8D 


4D 


02 


STA 


$024D 


D593 


AD 


4D 


02 


LDA 


$024D 


D596 


20 


OE 


D5 


JSR 


SD50E 


****************************** 


D599 


20 


A6 


D5 


JSR 


SD5A6 


D59C 


BO 


FB 




BCS 


$D599 


D59E 


48 






PHA 




D59F 


A9 


00 




LDA 


#$00 


D5A1 


8D 


98 


02 


STA 


$0298 


D5A4 


68 






PLA 




D5A5 


60 






RTS 




D5A6 


B5 


00 




LDA 


$00, X 


D5A8 


30 


1A 




BMI 


$D5C4 


D5AA 


C9 


02 




CMP 


#$02 


D5AC 


90 


14 




BCC 


$D5C2 


D5AE 


C9 


08 




CMP 


#$08 


D5B0 


F0 


08 




BEQ 


$D5BA 


D5B2 


C9 


OB 




CMP 


#$0B 


D5B4 


F0 


04 




BEO 


$D5BA 


D5B6 


C9 


OF 




CMP 


#$0F 


D5B8 


DO 


OC 




BNE 


SD5C6 


D5BA 


2C 


98 


02 


BIT 


$0298 


D5BD 


30 


03 




BMI 


SD5C2 


D5BF 


4C 


3F 


D6 


JMP 


$D63F 


D5C2 


18 






CLC 




D5C3 


60 






RTS 




D5C4 


38 






SEC 




D5C5 


60 






RTS 




D5C6 


98 






TYA 




D5C7 


48 






PHA 




D5C8 


A5 


7F 




LDA 


S7F 


D5CA 


48 






PHA 




D5CB 


BD 


5B 


02 


LDA 


$025B,X 



73, 'cbm dos v2.6 1541' 

buffer number 

command code for disk controller 
in command register 
and write in table 



read block 
code for read 



write block 
code for write 
drive number 
buffer number 

command code 

check track and sector 

verify execution 
verify execution 
wait for end 



erase error flac 



cmd code (bit 7) still in reg? 
yes 

error-free execution 

8 

write protect 

11 

ID mismatch 

15 



create error message 
execution ended 



execution not yet ended 



drive number 
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D5CE 
D5D0 
D5D2 
D5D3 
D5D6 
D5D9 
D5DC 
D5DE 
D5E0 
D5E3 
D5E6 
D5E8 
D5E9 
D5EB 
D5ED 
D5EF 
D5F1 
D5F4 
D5F6 
D5F8 
D5FA 
D5FD 
D600 
D603 
D606 
D607 
D60A 
D60D 
D610 
D613 
D616 
D619 
D61B 
D61D 
D620 
D6 23 
D6 2 5 
D6 28 
D62B 
D62D 
D6 2F 
D631 
D633 
D635 
D636 
D6 38 
D63A 
D63C 
D63F 
D641 
D644 
D645 
D648 
D64A 
D64B 



29 01 

85 7F 
A8 

B9 CA FE 
8D 6D 02 

20 A6 D6 

C9 02 

BO 03 

4C 6D D6 

BD 5B 02 

29 F0 
48 

C9 90 

DO 07 

A5 7F 

09 B8 

9D 5B 02 

24 6A 

70 39 

A9 00 

8D 99 02 

8D 9A 02 

AC 99 02 

AD 9A 02 
38 

F9 DB FE 

8D 9A 02 

B9 DB FE 

20 76 D6 

EE 99 02 

20 A6 D6 

C9 02 

90 08 

AC 99 02 

B9 DB FE 

DO DB 

AD 9A 02 

20 76 D6 

B5 00 

C9 02 

90 2B 

24 6A 

10 OF 
68 

C9 90 

DO 05 

05 7F 

9D 5B 02 

B5 00 

20 OA E6 
68 

2C 98 02 

30 23 
48 

A9 CO 



AND 
ST A 
TAY 
LDA 
STA 
JSR 
CMP 
BCS 
JMP 
LDA 
AND 
PHA 
CMP 
BNE 
LDA 
OR A 
STA 
BIT 
BVS 
LDA 
STA 
STA 
LDY 
LDA 
SEC 
SBC 
STA 
LDA 
JSR 
INC 
JSR 
CMP 
BCC 
LDY 
LDA 
BNE 
LDA 
JSP 
LDA 
CMP 
BCC 
BIT 
BPL 
PLA 
CMP 
BNE 
ORA 
STA 
LDA 
JSR 
PLA 
BIT 
BMI 
PHA 
LDA 



#$01 
$7F 

$FECA,Y 

S026D 

SD6A6 

#$02 

SD5E3 

$D66D 

$025B,X 

#$F0 

#$90 

SD5F4 

$7F 

#$B8 

S025B.X 

$6A 

SD631 

#$00 

$0299 

$029A 

$0299 

$029A 

$FEDB,Y 

S029A 

$FEDB,Y 

$D676 

$0299 

SD6A6 

#$02 

$D625 

$0299 

$FEDB,Y 

SD600 

S029A 

SD676 

$00, X 

#$02 

$D65C 

$6A 

$D644 

#$90 

$D63F 

$7F 

$025B,X 

$00, X 

SE60A 

$0298 
$D66D 

#$C0 



drive number 

bit model for drive 

read attempt 

not ok? 
done 

command code 
isolate 

code for write 

no 

drive number 



cntr for searches next to track 
counter 

constants for read attempts 



position head next to track 

increment counter 

read atempt 

return message 

smaller than 2, ok? 

load counter 

get constants 

not yet zero (table end)? 



position head 

return message 
ok? 



command code 

for writing? 

no 

drive number 

command code in table 

return message 

set error message 



command code for head positioning 
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D64D 


05 


7F 




ORA 


S7F 


D64F 


95 


00 




ST A 


$00,X 


D651 


B5 


00 




LDA 


$00, X 


D653 


30 


FC 




BMI 


$D651 


D655 


20 


A6 


D6 


JSR 


$D6A6 


D658 


C9 


02 




CMP 


#$02 


D6 5A 


BO 


D9 




BCS 


SD635 


D6 5C 


68 






PLA 




D65D 


C9 


90 




CMP 


#$90 


D6 5F 


DO 


OC 




BNE 


$D66D 


D661 


05 


7F 




ORA 


$7F 


D663 


9D 


5B 


02 


STA 


$025B,X 


D666 


20 


A6 


D6 


JSR 


SD6A6 


D669 


C9 


02 




CMP 


#$02 


D66B 


BO 


D2 




BCS 


SD63F 


D66D 


68 






PLA 




D66E 


85 


7F 




STA 


$7F 


D670 


68 






PLA 




D671 


A8 






TAY 




D672 


B5 


00 




LDA 


$00, X 


D674 


18 






CLC 




D675 


60 






RTS 




D676 


C9 


00 




CMP 


#$00 


D678 


F0 


18 




BEO 


SD692 


D67A 


30 


OC 




BMI 


$D688 


D67C 


A0 


01 




LDY 


#$01 


D67E 


20 


93 


D6 


JSR 


SD693 


D681 


38 






SEC 




D68 2 


E9 


01 




SBC 


#$01 


D684 


DO 


F6 




BNE 


$D67C 


D686 


FO 


OA 




BEO 


$D692 


D688 


AO 


FF 




LDY 


#$FF 


D68A 


20 


93 


D6 


JSR 


SD693 


D68D 


18 






CLC 




D68E 


69 


01 




ADC 


#$01 


D690 


DO 


F6 




BNE 


$D688 


D69 2 


60 






RTS 




D693 


48 






PHA 




D69 4 


98 






TYA 




D695 


A4 


7F 




LDY 


$7F 


D697 


99 


E'E 


02 


STA 


$02FE,Y 


D69A 


D9 


FE 


02 


CMP 


$02FE,Y 


D69D 


FO 


FB 




BEO 


$D69A 


D69F 


A9 


on 




LDA 


#$00 


D6A1 


99 


FE 


02 


STA 


$02FE,Y 


D6A4 


68 






PLA 




D6A5 


60 






RTS 




D6A6 


A5 


6A 




LDA 


$6A 


D6A8 


29 


3F 




AND 


#$3F 


D6AA 


A8 






TAY 




D6AB 


AD 


6D 


02 


LDA 


$026D 



drive number 

in command register 

wait for execution 

attempt command execution again 

return message 

incorrect? 

command code for writing 

no 

drive number 

in table 

attempt execution again 

return message 

error? 

get drive number back 



error code 
end-of-execution flac 



transmit data for head position 



transmit data for head position 



drive number 

wait for return message from 

disk controller 

maximum number of repetitions 
bit for LED 
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D6AE 


4D 


00 


1C 


EOR 


$1C00 




D6B1 


8D 


00 


1C 


STA 


S1C00 




D6B4 


BD 


5B 


02 


LDA 


$025B,X 


command 


D6B7 


95 


00 




STA 


$00, X 


transmit to disk controller 


D6B9 


B5 


00 




LDA 


S00,X 


and return message 


D6BB 


30 


FC 




BMI 


$D6B9 


wait 


D6BD 


C9 


02 




CMP 


#$02 


ok? 


D6BF 


90 


03 




BCC 


$D6C4 


yes 


D6C1 


88 






DEY 




decrement counter 


D6C2 


DO 


E7 




BNE 


$D6AB 


attempt again 


D6C4 


48 






PHA 






D6C5 


AD 


6D 


02 


LDA 


$026D 




D6C8 


0D 


00 


1C 


ORA 


$1C00 


LED off 


D6CB 


8D 


00 


1C 


STA 


$1C00 




D6CE 


68 






PLA 






D6CF 


60 






RTS 







****************************** 



D6D0 



20 93 DF JSP $DF93 



transmit param to disk controller 
get buffer number 



D6D3 


0A 






ASL 


A 




D6D4 


A8 






TAY 






D6D5 


A5 


80 




LDA 


$80 


track number 


D6D7 


99 


06 


00 


STA 


$0006, Y 


transmit 


D6DA 


A5 


81 




LDA 


$81 


sector number 


D6DC 


99 


07 


00 


STA 


$0007, Y 


transmit 


D6DF 


A5 


7F 




LDA 


$7F 


drive number 


D6E1 


0A 






ASL 




times 2 


D6E2 


AA 






TAX 






D6E3 


60 






PTS 






****************' 


****** 


r******* * 


enter file in directory 


D6E4 


A5 


83 




LDA 


$83 


secondary address 


D6E6 


48 






PHA 






D6E7 


A5 


82 




LDA 


$82 


channel number 


D6E9 


48 






PHA 






D6EA 


A5 


81 




LDA 


$81 


sector number 


D6EC 


48 






PHA 






D6ED 


A5 


80 




LDA 


$80 


track number 


D6EF 


48 






PHA 




save 


D6F0 


A9 


11 




LDA 


#$11 




D6F2 


85 


83 




STA 


$83 


secondary address 17 


D6F4 


20 


3B 


DE 


JSR 


SDE3B 


get track and sector number 


D6F7 


AD 


4A 


02 


LDA 


$024A 


file type 


D6FA 


48 






PHA 




save 


D6FB 


A4 


E2 




LDA 


$E2 


drive number 


D6FD 


29 


01 




AND 


#$01 




D6FF 


85 


7F 




STA 


$7F 


set 


D701 


A6 


F9 




LDX 


$F9 


buffer number 


D703 


5D 


5B 


02 


EOF 


$025B,X 




D706 


4A 






LSR 


A 




D707 


90 


OC 




BCC 


$D715 


equal drive number? 


D709 


A2 


01 




LDX 


#$01 




D70B 


8E 


92 


02 


STX 


$0292 


pointer in directory 


D70E 


20 


AC 


C5 


JSP 


$C5AC 


load dir and find first ent 


D711 


F0 


ID 




BEO 


$D730 


not found? 
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D713 


DO 


28 




BNE 


$D73D 


found? 


D715 


AD 


91 


02 


LDA 


$0291 


sector number in directory 


D718 


FO 


OC 




BEQ 


SD726 


equal zero 


D71A 


C5 


81 




CMP 


S81 


equal sector number? 


D71C 


FO 


IF 




BEQ 


$D73D 


yes 


D71E 


85 


81 




STA 


$81 


save sector number 


D7 20 


20 


60 


D4 


JSR 


SD460 


read block 


D7 23 


4C 


3D 


D7 


JMP 


$D73D 




D7 26 


A9 


01 




LDA 


#$01 




D7 28 


8D 


92 


02 


STA 


$0292 


pointer to one 


D7 2B 


20 


17 


C6 


JSR 


SC617 


find next entry in directo 


D72E 


DO 


OD 




BNE 


$D73D 


found? 


D730 


20 


8D 


D4 


JSR 


$D48D 


write directory block 


D733 


A5 


81 




LDA 


$81 


sector number 


D7 35 


8D 


91 


02 


STA 


$0291 




D7 38 


A9 


02 




LDA 


#$02 




D73A 


8D 


92 


02 


STA 


$0292 


pointer to 2 


D73D 


AD 


92 


02 


LDA 


$0292 




D7 40 


20 


C8 


D4 


JSP 


$D4C8 


set buffer pointer 


D74 3 


68 






PLA 






D744 


8D 


4A 


02 


STA 


S024A 


file type 


D747 


C9 


04 




CMP 


#$04 


rel-f ile? 


D749 


DO 


02 




BNE 


$D74D 


no 


D74B 


09 


80 




ORA 


#$80 


set bit 7 


D74D 


20 


Fl 


CF 


JSR 


$CFF1 


and write in buffer 


D750 


68 






PLA 






D751 


8D 


80 


02 


STA 


$0280 


following track 


D754 


20 


Fl 


CF 


JSR 


SCFF1 


in buffer 


D757 


68 






PLA 






D758 


8D 


85 


02 


STA 


$0285 


following sector 


D75B 


20 


Fl 


CF 


JSP 


$CFF1 


in buffer 


D75E 


20 


93 


DF 


JSR 


SDF9 3 


get buffer number 


D761 


A8 






TAY 






D762 


AD 


7A 


02 


LDA 


$027A 


pointer to drive number 


D765 


AA 






TAX 






D766 


A9 


10 




LDA 


#$10 


16, length of filename 


D768 


20 


6E 


C6 


JSR 


$C66E 


write filename in buffer 


D76B 


A0 


10 




LDY 


#$10 




D76D 


A9 


00 




LDA 


#$00 




D76F 


91 


94 




STA 


($94) ,Y 


fill with zeroes at pos 16 


D771 


C8 






I NY 






D77 2 


CO 


IB 




CPY 


#$1B 


position 27 already? 


D774 


90 


F9 




BCC 


$D76F 


no 


D776 


AD 


4A 


02 


LDA 


$024A 


file type 


D779 


C9 


04 




CMP 


#$04 


rel-f ile 


D77B 


DO 


13 




BNE 


$D790 


no 


D77D 


AO 


10 




LDY 


#$10 




D77F 


AD 


59 


02 


LDA 


$0259 


track 


D782 


91 


94 




STA 


($94), Y 




D784 


C8 






INY 






D785 


AD 


5A 


02 


LDA 


$025A 


and sector 


D788 


91 


94 




STA 


($94), Y 


the side-sectors in dir en 


D78A 


C8 






INY 
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D78B 
D78E 
D790 
D793 
D794 
D796 
D797 
D798 
D79A 
D79D 
D79F 
D7A2 
D7A5 
D7A7 
D7AA 
D7AD 
D7AF 
D7B1 
D7B3 



AD 58 02 
91 94 



20 64 
68 

85 82 
AA 
68 

85 83 
AD 91 
85 D8 
9D 60 02 
AD 92 02 
85 DD 
9D 66 02 
AD 4A 02 
85 E7 
A5 7F 
85 E2 
60 



D4 



02 



LDA 
STA 
JSR 
PLA 
STA 
TAX 
PLA 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
PTS 



$0258 
($94), Y 
$D464 

$82 



$83 

$0291 

$D8 

$0260, X 

$0292 

$DD 

$0266, X 

$024A 

$E7 

$7F 

$E2 



record length 
in directory 
write block 

channel number 



secondary address 



file type 
drive number 



****************************** 



D7B4 
D7B6 
D7B9 
D7BC 
D7BF 
D7C2 
D7C5 
D7C7 
D7C9 
D7CB 
D7CD 
D7CF 
D7D1 
D7D4 
D7D6 
D7D8 
D7DA 
D7DC 
D7DF 
D7E1 
D7E4 
D7E7 
D7E9 
D7EB 
D7ED 
D7F0 

D7F3 
D7F5 
D7F7 
D7FA 
D7FC 

D7FF 



A5 83 

8D 4C 02 

20 B3 C2 

8E 2A 02 

AE 00 02 

AD 4C 02 

DO 2C 

EO 2A 

DO 28 

A5 7E 

F0 4D 

85 80 

AD 6E 02 

85 7F 

85 E2 

A9 02 

85 E7 

AD 6F 2 

85 81 

20 00 CI 

20 46 DC 

A9 04 

05 7F 

A6 82 

99 EC 00 

4C 94 CI 

E0 24 

DO IE 

AD 4C 2 

DO 03 

4C 55 DA 

20 Dl CI 



LDA 
STA 
JSR 
STX 
LDX 
LDA 
BNE 
CPX 
PNE 
LDA 
BEO 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSP 
LDA 
ORA 
LDX 
STA 
JMP 



$83 

$024C 

$C283 

$022A 

$0200 

$024C 

$D7F3 

#$2A 

$D7F3 

S7E 

$D81C 

$80 

$026E 

$7F 

$E2 

#$02 

SE7 

$026F 

$81 

$C100 

$DC46 

#$04 

$7F 

$82 

$00EC,Y 

$C194 



CPX #$24 
BNE $D815 
LDA $024C 
BNE $D7FF 
JMP $DA55 

JSP $C1D1 



OPEN command, secondary adr <> 15 
secondary address 

get line length, erase flags 

first character from buffer 
secondary address 
not equal (LOAD)? 



last track number 

track number 
last drive number 
drive number 



set data type to program 

last sector number 

sector 

turn LED on 

allocate buffer, read block 

file type 

drive number 

channel number 

set flag 

done 



secondary address 
not equal to zero? 
OPEN $ 

analyze line to end 
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D802 



AD 85 FE LDA $FE85 



D805 


85 


80 




STA $80 


D807 


A9 


00 




LDA #$00 


D809 


85 


81 




STA $81 


D80B 


20 


46 


DC 


JSR $DC46 


D80E 


A5 


7F 




LDA $7F 


D810 


09 


02 




ORA #$02 


D812 


4C 


EB 


D7 


JMP $D7EB 



D815 E0 23 CPX #$23 
D817 DO 12 BNE $D82B 
D819 4C 84 CB JMP $CB84 



D81C 
D81E 
D821 
D823 
D8 25 
D828 
D8 2B 
D82E 
D830 
D832 
D834 
D835 
D837 



D8 3C 
D8 3D 
D8 3F 
D840 
D843 
D845 
D848 
D849 
D8 4C 
D84F 
D852 
D8 55 
D8 57 
D8 5A 
D85D 
D8 60 
D861 
D864 
D866 
D8 69 
D86A 
D8 6D 
D86F 
D871 
D87 3 
D876 
D879 



A9 02 

8D 96 02 

A9 00 

85 7F 

8D 8E 02 

20 42 DO 

20 E5 CI 

DO 04 

A2 00 

FO 0C 
8A 

FO 05 

A9 30 



D839 4C C8 CI 



88 

FO 01 

88 

8C 7A 02 

A9 8D 

20 68 C2 

E8 

8E 78 02 

20 12 C3 

20 CA C3 

20 9D C4 

A2 00 

8E 58 02 

8E 97 02 

8E 4A 02 

E8 

EC 77 02 

BO 10 

20 09 DA 

E8 

EC 77 02 

BO 07 

CO 04 

FO 3E 

20 09 DA 

AE 4C 02 

86 83 



LDA #$02 

STA $0296 

LDA #$00 

STA $7F 

STA $028E 

JSR $D04 2 

JSP $C1E5 

BNE $D834 

LDX #$00 

BEQ $D8 40 
TXA 

BEO $D83C 

LDA #$30 

JMP $C1C8 

DEY 

BEO $D840 

DEY 

STY $027A 

LDA #$8D 

JSR $C268 

I NX 

STX $0278 

JSR $C312 

JSR $C3CA 

JSR $C49D 

LDX #$00 

STX $0258 

STX $0297 

STX $024A 

INX 

CPX $0277 

BCS $D876 

JSR $DA09 

INX 

CPX $0277 

BCS $D876 

CPY #$04 

BEQ SD8B1 

JSP SDA09 

LDX $024C 

STX $8 3 



18, directory track 
track 

sector 

allocate buffer, read block 

drive number 

continue as above 

'#' 

open direct access file 

file type program 

drive 

load BAM 
analyze line 
colon found? 



comma found? 
no 



30, 'syntax error' 



pointer to drive number 

shift CR 

analyze line to end 

comrna counter 

get drive number 

check drive number 

find file entry in directory 

default values 

record length 

file type 

comma before equal sign? 

no 

get file type and control mode 

additional comma? 
no 



get file type and control method 
secondary address 
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D87B 
D87D 
D87F 
D882 
D884 
D887 
D88A 
D88C 
D88E 
D891 
D894 
D896 
D898 
D89A 
D89D 
D8A0 
D8A2 
D8A4 
D8A7 
DBAA 
DBAC 
D8AE 



EO 02 

BO 12 

8E 97 02 

A9 40 

8D F9 02 

AD 4A 2 

DO IB 

A9 02 

8D 4A 02 

AD 4A 02 

DO 11 

A5 E7 

29 07 

8D 4A 02 

AD 80 02 

DO 05 

A9 01 

8D 4A 02 

AD 97 2 

C9 01 

F0 18 

4C 40 D9 



CPX 
BCS 
STX 
LDA 
STA 
LDA 
BNE 
LDA 
STA 
LDA 
BNE 
LDA 
AND 
STA 
LDA 
BNE 
LDA 
STA 
LDA 
CMP 
BEO 
JMP 



#$02 

$D891 

$0297 

#$40 

$02F9 

$024A 

$D8A7 

*$02 

$024A 

$024A 

$D8A7 

$E7 

#$07 

$024A 

$0280 

$D8A7 

#$01 

$024A 

$0297 

#$01 

$D8C6 

$D940 



greater than 2? 

yes 

or 1 (LOAD or SAVE) 



file type 

not deleted 

PKG 

as file type 



get file type and command line 

track number 
not equal zero? 

file type sequential 

control method 

'W 

yes 



D8B1 
D8B4 
D8B7 
D8BA 
D8BD 
D8BF 
D8C1 
D8C4 



BC 7A 02 

B9 00 02 

8D 5B 02 

AD 80 02 

DO B7 

A9 01 

8D 97 02 

DO B0 



LDY $027A,X 
LDA $0200, Y 
STA $025B 
LDA $0280 
BNE $D87 6 
LDA #$01 
STA $0297 
BNE $D876 



pointer behind second comma 
get value 
record length 
track number 

■W 

as control method 



D8C6 
D8C8 
D8CA 
D8CB 
D8CD 
D8CF 
D8D1 
D8D3 
D8D6 



A5 E7 

29 80 
AA 

DO 14 

A9 20 

24 E7 

F0 06 

20 B6 C8 

4C E3 D9 



LDA $E7 

AND #$80 
TAX 

BNE $D8E1 

LDA #$20 

BIT $E7 

BEQ $D8D9 

JSP $C8B6 

JMP $D9E3 



file type 

isolate wildcard flag 

wildcard in name 

was file closed? 

yes 

byte in buffer and write block 



D8D9 
D8DC 
D8DE 
D8E1 
D8E4 
D8E6 
D8E8 
D8E9 
D8EB 
D8ED 
D8F0 
D8F2 



A9 80 02 

DO 03 

4C E3 D9 

AD 00 02 

C9 40 

F0 0D 
8A 

DO 05 

A9 63 

4C C8 CI 

A9 33 

4C C8 CI 



LDA 
BNE 
JMP 
LDA 
CMP 
BEO 
TXA 
BNE 
LDA 
JMP 
LDA 
JMP 



$0280 

$D8E1 

$D9E3 

$0200 

#$40 

$D8F5 

$D8F0 

#$63 

$C1C8 

#$33 

$C1C8 



track number of the first block 
already existing 

first character from input buffer 

1 @ ' ? 

yes 

wildcard set? 

63 , 'file exists ' 

33, 'syntax error' 
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****************************** 



D8F5 


A5 


E7 




LDA 


$E7 


D8F7 


29 


07 




AND 


#$07 


D8F9 


CD 


4A 


02 


CMP 


$024A 


D8FC 


DO 


67 




BNE 


$D965 


D8FE 


C9 


04 




CMP 


#$04 


D900 


FO 


63 




BEO 


$D965 


D902 


20 


DA 


DC 


JSR 


$DCDA 


D905 


A5 


82 




LDA 


$82 


D907 


8D 


70 


02 


STA 


$0270 


D90A 


A9 


11 




LDA 


#$11 


D90C 


20 


EB 


DO 


JSR 


$D0EB 


D911 


AD 


94 


02 


LDA 


$0294 


D914 


20 


C8 


D4 


JSR 


$D4C8 


D917 


A0 


00 




LDY 


#$00 


D919 


Bl 


94 




LDA 


($94) ,Y 


D91B 


09 


20 




OPA 


#$20 


D91D 


91 


94 




STA 


($94) ,Y 


D91F 


A0 


1A 




LDY 


#$1A 


D9 21 


A5 


80 




LDA 


S80 


D9 23 


91 


94 




STA 


($94) ,Y 


D9 25 


C8 






INY 




D926 


A5 


81 




LDA 


$81 


D9 28 


91 


94 




STA 


($94) ,Y 


D9 2A 


AE 


70 


02 


LDX 


$0270 


D9 2D 


A5 


D8 




LDA 


$D8 


D9 2F 


9D 


60 


02 


STA 


$0260, X 


D93 2 


A5 


DD 




LDA 


$DD 


D934 


9D 


66 


02 


STA 


$0266, X 


D937 


20 


3B 


DE 


JSP 


$DE3B 


D9 3A 


20 


64 


D4 


JSR 


$D464 


D93D 


4C 


EF 


D9 


JMP 


SD9EF 


D940 


AD 


80 


02 


LDA 


$0280 


D943 


DO 


05 




BNE 


$D94A 


D945 


A9 


62 




LDA 


#$62 


D947 


4C 


C8 


Cl 


JMP 


$C1C8 


D9 4A 


AD 


97 


02 


LDA 


$0297 


D9 4D 


C9 


03 




CMP 


#$03 


D94F 


F0 


OB 




BEO 


$D9 5C 


D9 51 


A9 


20 




LDA 


#$20 


D9 53 


24 


E7 




BIT 


$E7 


D955 


F0 


05 




BFO 


$D95C 


D9 57 


A9 


60 




LDA 


#$60 


D959 


4C 


C8 


Cl 


JMP 


#$C1C8 


D9 5C 


A5 


F7 




LDA 


$E7 


D95E 


29 


07 




AND 


#$07 


D960 


CD 


4A 


02 


CMP 


$024A 


D9 6 3 


FO 


05 




BEQ 


$D96A 


D9 65 


A9 


64 




LDA 


#$64 


D9 67 


4C 


C8 


Cl 


JMP 


$C1C8 


D9 6A 


AO 


00 




LDY 


#$00 


D96C 


8C 


79 


02 


STY 


$0279 


D9 6F 


AE 


97 


02 


LDX 


$0297 


D97 2 


EO 


02 




CPX 


#$02 



open a file with overwriting 

file type 

isolate 

file type different? 

rel-file? 

64, 'file type mismatch 1 



save channel number 

open read channel 

set buffer pointer for directory 

file type 

set bit 5, open file 

track 



and sector 

for open with at-sign 

channel number 

pointer to directory block 



get track and sector number 

write block 

prepare trk, sector, and drive # 

first track number 
file not erased? 

62, 'file not found' 

control mode 

'M' 

yes, then no test of unclosed file 

bit 5 

test in file type 

not set, ok 

60, 'write file open' 

isolate file type 



64, 'file type mismatch' 



control mode 
'A' , append 
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D974 
D976 
D978 
D97A 
D97C 
D97E 
D980 
D982 
D983 
D985 
D987 
D98A 
D98D 
D98E 
D990 
D993 
D996 
D998 
D99A 
D99D 

D9A0 
D9A2 
D9A4 
D9A7 
D9A8 
D9AA 
D9AD 
D9AE 
D9B0 
D9B3 
D9B6 
D9B7 
D9B9 
D9BC 
D9BE 
D9C0 
D9C3 
D9C6 
D9C9 
D9CB 
D9CE 
D9D0 
D9D3 
D9D5 
D9D8 
D9DA 
D9DD 
D9DF 
D9E2 



DO 1A 

C9 04 

F0 EB 

Bl 94 

29 4F 

91 94 

A5 8 3 
48 

A9 11 

85 83 

20 3B DE 

20 64 D4 
68 

85 83 

20 A0 D9 

AD 97 02 

C9 02 

DO 55 

20 2A DA 

4C 94 CI 

A0 13 

Bl 94 

8D 59 02 
C8 

Bl 94 

8D 5A 02 
C8 

Bl 94 

AE 58 02 

8D 58 02 
8A 

F0 0A 

CD 58 02 

FO 05 

A9 50 

20 C8 CI 

AE 79 02 

BD 80 02 

85 80 

BD 85 02 

85 81 

20 46 DC 

A4 82 

AE 79 02 

B5 D8 

99 60 02 

B5 DD 

99 66 02 
60 



BNE $D990 
CMP #$04 
BEQ $D965 
LDA (S94) ,Y 
AND #$4F 
STA ($94) ,Y 
LDA $83 
PHA 

LDA #$11 
STA $83 
JSR $DE3B 
JSR $D464 
PLA 

STA $83 
JSP $D9A0 
LDA $0 297 
CMP #$02 
BNE $D9EF 
JSP $DA2A 
JMP $C194 



no 

rel-f lie? 



LDA 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
LDX 
STA 
TXA 
BEO 
CMP 
BEO 
LDA 
JSR 
LDX 
LDA 
STA 
LDA 
STA 
JbR 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
RTS 



#$13 
($94) ,Y 
$0259 

($94) ,Y 
$025A 

(S94) ,Y 

$0258 

$0258 

SD9C3 

#$0258 

$D9C3 

#$50 

$C1C8 

$0279 

$0280, X 

$80 

$0285, X 

$81 

$DC4 6 

$82 

$0279 

$D8,X 

$0260, Y 

SDD,X 

$0266, Y 



channel 17 

get track and sector number 

write block 

get channel # back 

control mode 



done 



track 



record length 
last record len 



50, 'record not present 1 



track 



D9E3 
D9E5 
D9F7 
D9E9 



A5 E2 

29 01 

85 7F 

20 DA DC 



LDA $E2 
AND #$01 
STA S7F 
JSR $DCDA 



drive # 
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D9EC 
D9EF 
D9F1 
D9F3 
D9F5 
D9F8 
D9FA 
D9FC 
D9FE 
DA01 
DA0 3 
DA06 



20 E4 D6 

A5 83 

C9 02 

BO 11 

20 3E DE 

A5 80 

85 7E 

A5 7F 

8D 6E 02 

A5 81 

8D 6F 02 

4C 99 CI 



JSR 
LDA 
CMP 
BCS 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
J MP 



$D6E4 

$83 

#$02 

$DA06 

SDE3E 

$80 

S7E 

$7F 

S026E 

$81 

$026F 

$C199 



****************************** 

BC 7A 02 

B9 00 02 

04 



DA09 
DAOC 
DAOF 
DA11 
DAI 2 
DAI 4 
DA17 
DAI 9 
DA1C 
DA1E 
DA1F 
DA21 
DA24 
DA26 
DA29 



AO 
88 
30 
D9 
DO 



08 
B2 
F8 



8C 97 
AO 05 



FE 



02 



30 08 
D9 B6 
DO F8 
8C 4A 02 
60 



channel # 



FE 



LDY $027A,X 

LDA $0200, Y 

LDY #$04 

DEY 

BMI SDA1C 

CMP $FEB2,Y 

BNE $DA11 

STY $0297 

LDY #$05 

DEY 

BMI 5DA29 

CMP $FEB6,Y 
BNE $DA1E 
STY $024A 
RTS 



check file type and control mode 
pointer in command line 
get characters from line 



control modes 'R', 



'A', 'H' 



file types 'D' ,*S' ,'P* , 'U' , "L" 



****************************** 



DA2A 
DA2D 
DA2F 
DA32 
DA34 
DA37 
DA39 
DA3A 
DA3B 
DA3D 
DA40 
DA42 
DA45 
DA47 
DA49 
DA4B 
DA4D 
DA4F 
DA51 
DA54 



20 39 CA 

A9 80 

20 A6 DD 



F0 F6 

20 95 

A6 81 
E8 
8A 

DO 05 

20 A3 

A9 02 

20 C8 

A6 8 2 

A9 01 

95 F2 

A9 80 

05 82 

A6 83 

9D 2B 02 
60 



DE 



Dl 



D4 



JSR 

LDA 
JSR 
BEO 
JSR 
LDX 
I NX 
TXA 
BNE 
JSR 
LDA 
JSP 
LDX 
LDA 
STA 
LDA 
ORA 
LDX 
STA 
RTS 



SCA39 

#$80 
$DDA6 
$DA 2 A 
SDE95 
$81 



$DA42 

$D1A3 

#$02 

$D4C8 

$82 

#$01 

$F2,X 

#$80 

$82 

$83 

$022B,X 



preparation for Append 

open channel to read, get byte 

last byte? 

no 

get track and sector number 

sector number 



not $FF? 

close buffer, write block 

buffer pointer to 2 
channel number 

set flag for WRITE 



channel number in table 



****************************** 
DA55 A9 0C LDA #$0C 
DA57 8D 2A 02 STA $022A 



OPEN "$" 

command number 12 
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DA5A 


A9 


00 




LDA 


#$00 


DA5C 


AE 


74 


02 


LDX 


$0274 


DA5F 


CA 






DEX 




DA60 


FO 


OB 




BEO 


$DA6D 


DA62 


CA 






DEX 




DA63 


DO 


21 




BNE 


$DA86 


DA65 


AD 


01 


02 


LDA 


$0201 


DA68 


20 


BD 


C3 


JSR 


$C3BD 


DA6B 


30 


19 




BMI 


SDA86 


DA6D 


85 


E2 




STA 


$E2 


DA6F 


EE 


77 


02 


INC 


$0277 


DA72 


EE 


78 


02 


INC 


$0278 


DA75 


EE 


7A 


02 


INC 


$027A 


DA78 


A9 


80 




LDA 


#$80 


DA7A 


85 


E7 




STA 


$E7 


DA7C 


A9 


2A 




LDA 


♦ $2A 


DA7E 


8D 


00 


02 


STA 


$0200 


DA81 


8D 


01 


02 


STA 


$0201 


DA84 


DO 


18 




BNE 


SDA9E 


DA86 


20 


E5 


CI 


JSR 


$C1E5 


DA89 


DO 


05 




BNE 


$DA90 


DA8B 


20 


DC 


C2 


JSR 


$C2DC 


DA8E 


AO 


03 




LDY 


#$03 


DA90 


88 






DEY 




DA91 


88 






DEY 




DA92 


8C 


7A 


02 


STY 


$027A 


DA95 


20 


00 


C2 


JSP 


$C200 


DA98 


20 


98 


C3 


JSR 


$C398 


DA9B 


20 


20 


C3 


JSR 


$C320 


DA9E 


20 


CA 


C3 


JSR 


$C3CA 


DAA1 


20 


B7 


C7 


JSR 


$C7B7 


DAA4 


20 


9D 


C4 


JSR 


SC49D 


DAA7 


20 


9E 


EC 


JSR 


$EC9E 


DAAA 


20 


37 


Dl 


JSR 


$D137 


DAAD 


A6 


82 




LDX 


$82 


DAAF 


9D 


3E 


02 


STA 


$023E 


DAB2 


A4 


7F 




LDA 


S7F 


DAB4 


8D 


8E 


02 


STA 


S028E 


DAB7 


09 


04 




ORA 


#$04 


DAB9 


95 


EC 




STA 


$EC,X 


DABB 


A9 


00 




LDA 


#$00 


DABD 


85 


A3 




STA 


$A3 


DABF 


60 






RTS 




**************************** 


DACO 


A9 


00 




LDA 


#$00 


DAC2 


8D 


F9 


02 


STA 


$02F9 


DAC5 


A5 


83 




LDA 


$83 


DAC7 


DO 


08 




BNE 


$DAD4 


DAC9 


A9 


00 




LDA 


#$00 


DACB 


8D 


54 


02 


STA 


$0254 


DACE 


20 


27 


D2 


JSP 


$D227 


DAD1 


4C 


DA 


D4 


JMP 


$D4DA 


DAD4 


C9 


OF 




CMP 


#$0F 



second character 
get drive number 
not a plain number? 



set wildcard flag 
i * i 

as file name in command buffer 

absolute jump 

test input line to ':' 

found? 

erase flags 



pointer to drive no. in command 

analyze line 

ascertain file type 

get drive number 

initialize drive if necessary 

prepare disk title 

load directory 

create and prepare directory 

get byte from buffer 

channel number 

byte in output register 

drive number 

save as last drive number 

PRG-flag 

set pointer back in input buffer 

CLOSE-routine 



secondary address 

not zero? 

secondary address 0, LOAD 

close channel 

close internal channels 17 & IS 

15 
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DAD6 


FO 


14 




BEO 


$DAEC 


yes, close all channels 


DAD8 


20 


02 


DB 


JSP 


SDB0 2 


close file 


DADB 


A5 


83 




LDA 


$83 


secondary address 


DADD 


C9 


02 




CMP 


#$02 




DADF 


90 


FO 




BCC 


$DAD1 


smaller than 2? 


DAE1 


AD 


6C 


02 


LDA 


$026C 




DAE4 


DO 


03 




BNE 


$DAE9 




DAE6 


4C 


94 


CI 


JMP 


$C194 


termination 


DAE9 


4C 


AD 


CI 


JMP 


$C1AD 




DAEC 


A9 


OE 




LDA 


#$0E 


14 


DAEE 


85 


83 




STA 


$83 


secondary address 


DAFO 


20 


02 


DB 


JSR 


$DB02 


close file 


DAF3 


C6 


83 




DEC 


$83 


next secondary address 


DAF5 


10 


F9 




BPL 


$DAF0 




DAF7 


AD 


6C 


02 


LDA 


$026C 




DAFA 


DO 


03 




BNE 


$DAFF 




DAFC 


4C 


94 


CI 


JMP 


$C194 


termination 


DAFF 


4C 


AD 


CI 


JMP 


$C1AD 




****************************** 


close file 


DB0 2 


A6 


83 




LDX 


$83 


secondary address 


DB04 


BD 


2B 


02 


LDA 


$022B,X 


get channel number 


DB07 


C9 


FF 




CMP 


#$FF 


no channel associated? 


DB09 


DO 


01 




BNE 


$DB0C 




DBOB 


60 






RTS 




no, then done 


DBOC 


29 


OF 




AND 


#$0F 


isolate channel number 


DBOE 


85 


82 




STA 


$82 




DB10 


20 


25 


Dl 


JSR 


$D125 


check data type 


DB13 


C9 


07 




CMP 


#$07 


direct access? 


DB15 


FO 


OF 




BEO 


$DB26 


yes 


DB17 


C9 


04 




CMP 


#$04 


rel-file? 


DB19 


FO 


11 




BEO 


$DB2C 


yes 


DB1B 


20 


07 


Dl 


JSR 


$D107 


channel for writing open 


DB1E 


BO 


09 




BCS 


$DB29 


no file for writing? 


DB20 


20 


62 


DB 


JSP 


$DB62 


write last block 


DB23 


20 


A5 


DB 


JSR $DBA5 


write entry in dir and block 


DB26 


20 


F4 


EE 


JSR 


$EEF4 


write BAM 


DB29 


4C 


27 


D2 


JMP 


SD227 


close channel 


DB2C 


20 


Fl 


DD 


JSR 


$DDF1 


get buffer number, write bio 


DB2F 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


DB3 2 


20 


CB 


El 


JSR 


$E1CB 


get last side-sector 


DB35 


A6 


D5 




LDX 


$D5 


side-sector number 


DB37 


86 


73 




STX 


$73 




DB39 


E6 


73 




INC 


$73 




DB3B 


A9 


00 




LDA 


#$00 




DB3D 


85 


70 




STA 


$70 




DB3F 


85 


71 










DB41 


A5 


D6 




LDA 


$D6 




DB43 


38 






SEC 






DB44 


E9 


OE 




SBC 


#S0E 


minus 14 for pointer 


CB46 


85 


72 




STA 


$72 




DB48 


20 


51 


DF 


JSR 


$DF51 


calculate block number of fi 
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DB4B 


A6 


82 




LDX 


$82 


channel number 


DB4D 


A5 


70 




LDA 


$70 




DB4F 


95 


B5 




STA 


$B5,X 


record number lo 


DB51 


A5 


71 




LDA 


$71 




DB53 


95 


BB 




STA 


$BB,X 


record number hi 


DB55 


A9 


40 




LDA 


#$40 




DB57 


20 


A6 


DD 


JSR 


$DDA6 


bit 6 set? 


DB5A 


F0 


03 




BEO 


$DB5F 


no 


DB5C 


20 


A5 


DB 


JSR 


$DBA5 


enter in dirctory 


DB5F 


AC 


27 


D2 


JMP 


$D227 


close channel 


****************************** 


write last block 


DB6 2 


A6 


82 




LDX 


$82 


channel number 


DB64 


B5 


B5 




LDA 


$B5,X 


record number lo 


DB66 


15 


BB 




ORA 


$BB,X 


record number hi 


DB68 


DO 


OC 




BNE 


$DB76 


not zero? 


DB6A 


20 


E8 


D4 


JSP 


$D4E8 


set buffer pointer 


DB6D 


C9 


02 




CMP 


#$02 




DB6F 


DO 


05 




BNE 


$DB76 


not 2 


DB71 


A9 


OD 




LDA 


#$0D 


CR 


DB7 3 


20 


Fl 


CF 


JSR 


SCFF1 


in buffer 


DB76 


20 


E8 


D4 


JSR 


$D4E8 


set buffer pointer 


DB79 


C9 


02 




CMP 


#$02 


now equal to 2? 


DB7B 


DO 


OF 




BNE 


$DB8C 


no 


DB7D 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


DB80 


A6 


82 




LDX 


$82 


channel number 


DB8 2 


B5 


B5 




LDA 


$B5,X 


record number lo 


DB84 


DO 


02 




BNE 


$DB88 




DB8 6 


D6 


BB 




DEC 


$BB,X 


decrement block number hi 


DB88 


D6 


B5 




DEC 


$B5,X 


and block number lo 


DB8A 


A9 


00 




LDA 


#$00 




DB8C 


38 






SEC 






DB8D 


E9 


01 




SBC 


#$01 


set pointer to end 


DB8F 


48 






PHA 






DB90 


A9 


00 




LDA 


#$00 




DB9 2 


20 


C8 


D4 


JSR 


$D4C8 


buffer pointer to zero 


DB95 


20 


Fl 


CF 


JSR 


$CFF1 


write zero in buffer 


DB98 


68 






PLA 




second byte = pointer to e 


DB99 


20 


Fl 


CF 


JSR 


$CFF1 


write in buffer 


DB9C 


20 


C7 


DO 


JSR 


SD0C7 


write block to disk 


DB9F 


20 


99 


D5 


JSR 


$D599 


and verify 


DBA2 


4C 


IE 


CF 


JMP 


$CF1E 


change buffer 


****************************** 


directory entry 


DBA5 


A6 


82 




LDX 


$82 


channel number 


DBA7 


8E 


70 


02 


STX 


$0270 


save 


DBAA 


A5 


83 




LDA 


$83 


secondary address 


DBAC 


48 






PHA 




save 


DBAD 


BD 


60 


02 


LDA 


$0260, X 


sector number in directory 


DBBO 


85 


81 




STA 


$81 


set 


DBB2 


BD 


66 


02 


LDA 


$0266, X 


pointer in directory 


DBB5 


8D 


94 


02 


STA 


$0294 




DBB8 


B5 


EC 




LDA 


$EC,X 




DBBA 


29 


01 




AND 


#$01 




DBBC 


85 


7F 




STA 


$7F 


drive number 
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DBBE 
DBC1 
DBC3 
DBC6 
DBC7 
DBC9 
DBCC 
DBCE 
DBD1 
DBD3 
DBD6 
DBD8 
DBDA 
DBDC 
DBDE 
DBE1 
DBE3 
DBE5 
DBE7 
DBE9 
DBEB 
DBEC 
DBEE 
DBFO 
DBF2 
DBF4 
DBF6 
DBF7 
DBF8 
DBFA 
DBFC 
DBFE 
DBFF 
DC01 
DC03 
DC06 
DC07 
DC09 
DCOB 
DCOC 
DCOE 
DCOF 
DC11 
DC13 
DC14 
DC16 
DC18 
DC19 
DC1B 
DC1E 

DC21 
DC23 
DC25 
DC27 



AD 8 5 FE 

85 80 

20 93 DF 
48 

8 5 F9 

20 60 D4 

AO 00 

BD EO FE 

85 87 

AD 94 02 

85 86 

Bl 86 

29 20 

FO 43 

20 25 Dl 

C9 04 

FO 44 

Bl 86 

29 8F 

91 86 
C8 

Bl 86 

85 80 

84 71 
AO IB 
Bl 86 
48 

88 

Bl 86 

DO OA 

85 80 
68 

85 81 

A9 67 

20 45 E6 

48 

A9 00 

91 86 

C8 

91 86 

68 

A4 71 

91 86 

C8 

Bl 86 

85 81 

68 

91 86 

20 7D C8 

4C 29 DC 

Bl 86 

29 OF 

09 80 
91 86 



LDA 
STA 
JSR 
PHA 
STA 
JSR 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
AND 
BEO 
JSR 
CMP 
BEO 
LDA 
AND 
STA 
I NY 
LDA 
STA 
STY 
LDY 
LDA 
PHA 
DEY 
LDA 
BNE 
STA 
PLA 
STA 
LDA 
JSR 
PHA 
LDA 
STA 
INY 
STA 
PLA 
LDY 
STA 
INY 
LDA 
STA 
PLA 
STA 
JSR 
JMP 



SFE85 

$80 

$DF93 

$F9 

$D460 

#$00 

$FEE0,X 

$87 

$0294 

$86 

($86) ,Y 

#$20 

$DC21 

$D125 

#$04 

$DC29 

($86) ,Y 

#$8F 

($86), Y 

($86) ,Y 
$80 
$71 
#$1B 
($86), Y 



($86), Y 

$DC06 

$80 

$81 

#$67 
SE645 

#$00 
($86) ,Y 

($86) ,Y 

$71 
($86), Y 

($86), Y 
$81 

($86) ,Y 

$C87D 

$DC29 



LDA ($86) ,Y 
AND #$0F 
ORA #$80 
STA ($86) ,Y 



18, directory track 

set 

increment buffer number 



read directory block 

buffer address 

buffer pointer 

file type 

file closed? 

yes 

check file type 

rel-f lie? 

yes 

erase bits 4,5, and 6 
in file type 

track number 



sector # of the file for 
overwriting 

track # for overwriting 

set? 

set track number 

sector numDer 

67, 'illegal track or sector' 

erase track number 

and sector number of the 
substitute file 

set track & sec # of the new file 



erase all files 



get file type 

isolate bits 0-3 

set bit 7 for closed file 
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DC29 


AE 


70 


02 


LDX 


$0270 


channel number 


DC2C 


AO 


1C 




LDY 


#$1C 




DC2E 


B5 


B5 




LDA 


$B5,X 


block number lo 


DC30 


91 


86 




STA 


(S86) ,Y 


in directory entry 


DC32 


C8 






INY 






DC33 


B5 


BB 




LDA 


$BB,Y 


and block numDer hi 


DC35 


91 


86 




STA 


($86), Y 


write 


DC37 


68 






PLA 




buffer number 


DC38 


AA 






TAX 






DC39 


A9 


90 




LDA 


#$90 


code for 'writing' 


DC3B 


20 


90 


D5 


JSR 


$D590 


write block 


DC40 


68 






PLA 






DC41 


85 


83 




STA 


$83 


secondary address 


DC43 


4C 


07 


Dl 


JMP 


$D107 


open channel for writing 


****************************** 


read block, layout buffer 


DC46 


A9 


01 




LDA 


#$01 




DC48 


20 


E2 


Dl 


JSP 


$D1E2 


find channel and buffer for read 


DC4B 


20 


B6 


DC 


JSR 


$DCB6 


set pointer 


DC4E 


AD 


4A 


02 


LDA 


S024A 


file type 


DC51 


48 






PHA 




save 


DC52 


0A 






ASL 


A 




DC53 


05 


7F 




ORA 


$7F 


drive number 


DC55 


95 


EC 




STA 


$EC,X 




DC57 


20 


9B 


DO 


JSR 


$D09B 


read block in Duffer 


DCS A 


A6 


82 




LDX 


$82 


channel number 


DC5C 


A5 


80 




LDA 


$80 


track 


DC5E 


DO 


05 




BNE 


SDC6 5 


following track? 


DC60 


A5 


81 




LDA 


$81 


sector 


DC62 


9D 


44 


02 


STA 


$0244, X 


as end pointer 


DC65 


68 






PLA 




file type 


DC66 


C9 


04 




CMP 


#$04 


rel-f ile? 


DC68 


DO 


3F 




BNE 


$DCA9 


no 


DC6A 


A4 


83 




LDA 


$83 


secondary address 


DC6C 


B9 


2B 


02 


LDA 


$022B,Y 


channel number 


DC6F 


09 


40 




ORA 


#$40 




DC71 


99 


2B 


02 


STA 


$022B,Y 


set flag for READ and WRITE 


DC74 


AD 


58 


02 


LDA 


$0258 


record length 


DC77 


95 


C7 




STA 


$C7,X 




DC79 


20 


8E 


D2 


JSR 


$D28E 


find buffer for side-sector 


DC7C 


10 


03 




BPL 


$DC81 


found? 


DC7E 


4C 


OF 


D2 


JMP 


$D20F 


70, "no channel' 


DC81 


A6 


82 




LDX 


$82 


channel number 


DC8 3 


95 


CD 




STA 


$CD,X 




DC85 


AC 


59 


02 


LDY 


$0259 




DC88 


84 


80 




STY 


$80 


track for side-sector 


DC8A 


AC 


5A 


02 


LDA 


$025A 




DC8D 


84 


81 




STY 


$81 


sector for side-sector 


DC8F 


20 


D3 


D6 


JSR 


$D6D3 


transmit parameters to disk cont 


DC9 2 


20 


73 


DE 


JSR 


$DE73 


read block 


DC95 


20 


99 


D5 


JSP 


$D599 


and verify 


DC98 


A6 


82 




LDX 


$82 


channel number 


DC9A 


A9 


02 




LDA 


#$02 




DC9C 


95 


CI 




STA 


$C1,X 


pointer for writing 
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DC9E A9 00 LDA #$00 

DCAO 20 C8 D4 JSR $D4C8 

DCA3 20 53 El JSR $E153 

DCA6 4C 3E DE JMP $DE3E 



buffer pointer to zero 

find next record 

get track and sector number 



DCA9 



20 56 Dl JSR $D156 



get byte from Duffer 



DCAC 


A6 


82 




LDX 


$82 




channel number 






DCAE 


9D 


3E 


02 


STA 


$023E, 


X 


byte in output reg 


ister 




DCB1 


A9 


88 




LDA 


#$88 




set flag for READ 






DCB3 


95 


F2 




STA 


$F2,X 










DCB5 


60 






RTS 












****************************** 


reset pointer 






DCB6 


A6 


82 




LDX 


$82 




channel number 






DCB8 


B5 


A7 




LDA 


$A7,X 




buffer number 






DCBA 


Toa 






ASL 


A 




times 2 






DCBB 
DCBC 


I A8 
/' A9 


02 




TAY 
LDA 


#$02 










DCBE 


[' 99 


99 


00 


STA 


$0099 


Y 


buffer pointer lo 






DCC1 


: B5 


AE 




LDA 


$AE,X 










DCC3 
DCC5 


. 09 
95 


80 
AE 




ORA 

STA 


*S80 
$AE,X 




set bit 7 






DCC7 
DCC8 


0A 
A8 






ASL 
TAY 


A 










DCC9 


\ A9 


02 




LDA 


#$02 










DCCB 


2? 


99 


00 


STA 


$0099 


Y 


buffer pointer lo 






DCCE 


A9 


00 




LDA 


#$00 










DCD0 


95 


B5 




STA 


$B5,X 




block number lo 






DCD2 


95 


BB 




STA 


$BB,X 




block number hi 






DCD4 


A9 


00 




LDA 


#S00 










DCD6 


9D 


44 


02 


STA 


$0244 


X 


end pointer 






DCD9 


60 






PTS 












****************************** 


construct a new h. 


ock 




DC DA 


20 


A9 


Fl 


JSR 


$F1A9 




find free sector in BAM 




DCDD 


A9 


01 




LDA 


#$01 










DCDF 


20 


DF 


Dl 


JSR 


$D1DF 




open channel 






DCE2 


20 


DO 


D6 


JSR 


SD6D0 




transmit param to 


disk controller 


DCE5 


20 


B6 


DC 


JSR 


SDCB6 




reset pointer 






DCE8 


A6 


82 




LDX 


$82 




channel number 






DCEA 


AD 


4A 


02 


LDA 


S024A 




file type 






DCED 


48 






PHA 












DCEE 


0A 






ASL 


A 










DCEF 


05 


7F 




ORA 


$7F 




drive number 






DCF1 


95 


EC 




STA 


$EC,X 




save as flag 






DCF3 


68 






PLA 












DCF4 


C9 


04 




CMP 


#$04 




rel-f lie? 






DCF6 


F0 


05 




BEQ 


$DCFD 




yes 






DCF8 


A9 


01 




LDA 


#$01 










DCFA 


95 


F2 




STA 


$F2,X 




set WRITE flag 






DCFC 


60 






PTS 












DCFD 


A4 


83 




LDY 


$83 




secondary address 






DCFF 


B9 


2B 


02 


LDA 


S022B 


Y 


channel number in 


table 




DD02 


29 


3F 




AND 


#S3F 




erase the top two 


bits 





184 



Anatomy of the 1541 Disk Drive 



DD04 


09 


40 




ORA 


#$40 


DD06 


99 


2B 


02 


STA 


$022B,Y 


DD09 


AD 


58 


02 


LDA 


$0258 


DDOC 


95 


C7 




STA 


$C7,X 


DDOE 


20 


8E 


D2 


JSR 


$D28E 


DD11 


10 


03 




BPL 


$DD16 


DD13 


4C 


OF 


D2 


JMP 


$D20F 


DD16 


A6 


82 




LDX 


$82 


DD18 


95 


CD 




STA 


$CD,X 


DD1A 


20 


CI 


DE 


JSR 


$DEC1 


DD1D 


20 


IE 


Fl 


JSP 


5F11E 


DD20 


A5 


80 




LDA 


$80 


DD22 


8D 


59 


02 


STA 


$0259 


DD25 


A5 


81 




LDA 


$81 


DD27 


8D 


5A 


02 


STA 


$025A 


DD2A 


A6 


82 




LDX 


$82 


DD2C 


B5 


CD 




LDA 


$CD,X 


DD2E 


20 


D3 


D6 


JSP 


$D6D3 


DD31 


A9 


00 




LDA 


#$00 


DD33 


20 


E9 


DE 


JSR 


$DFE9 


DD36 


A9 


00 




LDA 


#$00 


DD38 


20 


8D 


DD 


JSR 


SDD8D 


DD3B 


A9 


11 




LDA 


#$11 


DD3D 


20 


8D 


DD 


JSR 


SDD8D 


DD40 


A9 


00 




LDA 


#$00 


DD42 


20 


8D 


DD 


JSR 


$DD8D 


DD45 


AD 


58 


02 


LDA 


$0258 


DD48 


20 


8D 


DD 


JSR 


$DD8D 


DD4B 


A5 


80 




LDA 


$80 


DD4D 


20 


8D 


DD 


JSR 


$DD8D 


DD50 


A5 


81 




LDA 


$81 


DD5 2 


20 


8D 


DD 


JSR 


SDD8D 


DD55 


A9 


10 




LDA 


#$10 


DD57 


20 


E9 


DE 


JSR 


$DEE9 


DD5A 


20 


3E 


DE 


JSR 


$DE3E 


DD5D 


A5 


80 




LDA 


$80 


DD5F 


20 


8D 


DD 


JSR 


SDD8D 


DD6 2 


A5 


81 




LDA 


S81 


DD64 


20 


8D 


DD 


JSR 


SDD8D 


DD67 


20 


6C 


DE 


JSR 


$DE6C 


DD6A 


20 


99 


D5 


JSR 


SD599 


DD6D 


A9 


02 




LDA 


#$02 


DD6F 


20 


C8 


D4 


JSR 


$D4C8 


DD72 


A6 


82 




LDX 


$82 


DD74 


38 






SEC 




DD75 


A9 


00 




LDA 


#$00 


DD77 


F5 


C7 




SBC 


$C7,X 


DD79 


95 


CI 




STA 


$C1,X 


DD7B 


20 


E2 


E2 


JSR 


SE2E2 


DD7E 


20 


19 


DE 


JSR 


$DE19 


DD81 


20 


5E 


DE 


JSR 


SDE5E 


DD84 


20 


99 


D5 


JSR 


$D599 


DD87 


20 


F4 


FE 


JSR 


$EEF4 


DD8A 


4C 


98 


DC 


JMP 


$DC98 



set bit 6 

READ and write flag 

record length 

in table 

find buffer 

found? 

70, 'no channel' 

channel number 

Duffer numDer for side-sector 

erase buffer 

find free block in BAM 

track 

for side-sector 

sector 

for side-sector 

channel number 

buffer number 

transmit param to disk controller 

buffer pointer to zero 



17 

as end pointer in buffer 

zero 

as side-sector number in biffer 

record length 

in buffer 

track number of this block 

in Duffer 

sector number 

in buffer 

16 

buffer pointer to 16 

get track and sector number 

track # of the first data block 

in buffer 

sector # of the first data block 

in buffer 

write block to disk 

and check 

buffer pointer to 2 
channel number 



record length 

pointer for writing 

erase buffer 

write link bytes in buffer 

write block to disk 

and check 

write BAM 

and done 
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****************************** 
DD8D 48 PHA 

DD8E A6 82 LDX $82 
DD90 B5 CD LDA $CD,X 
DD9 2 4C FD CF JMP SCFFD 



write byte in side-sector block 

save byte 

channel number 

buffer # of the side-sector 

write byte in buffer 



****************************** 



manipulate flags 



DD9 5 


90 


06 




BCC 


$DD9D 






DD97 


A6 


82 




LDX 


$82 




channel number 


DD9 9 


15 


EC 




OFA 


$EC,X 




set flag 


DD9B 


DO 


06 




BNE 


$DDA3 






DD9D 


A6 


82 




LDX 


$82 




channel number 


DD9F 


49 


FF 




EOR 


#$FF 






DDA1 


35 


EC 




AND 


$EC,X 




erase flag 


DDA3 


95 


EC 




STA 


$EC,X 






DDA5 


60 






RTS 








DDA6 


A6 


82 




LDX 


$82 




channel number 


DDA8 


35 


EC 




AND 


$EC,X 




test flag 


DDAA 


60 






RTS 








****************************** 


check command code for wri 


DDAB 


20 


93 


DF 


JSR 


$DF93 




get buffer number 


DDAE 


AA 






TAX 








DDAF 


BD 


5B 


02 


LDA 


$025B, 


X 




DDB2 


29 


F0 




AND 


#$F0 




isolate command code 


DDB4 


C9 


90 




CMP 


#$90 




code for writing? 


DDB6 


60 






RTS 








************* 


***************** 


• 


DDB7 


A2 


00 




LDX 


#$00 






DDB9 


86 


71 




STX 


$71 




counter for secondary addr 


DDBB 


BD 


2B 


02 


LDA 


S022B, 


X 


get channel number from ta 


DDBE 


C9 


FF 




CMP 


#$FF 






DDCO 


DO 


08 




BNE 


$DDCA 




file open? 


DDC2 


A6 


71 




LDX 


$71 






DDC4 


E8 






I NX 






increment counter 


DDC5 


E0 


10 




CPX 


#$10 




smaller than 16? 


DDC7 


90 


F0 




BCC 


SDDB9 






DDC9 


60 






RTS 








DDCA 


86 


71 




STX 


$71 






DDCC 


29 


3F 




AND 


#$3F 




isolate channel number 


DDCE 


A8 






TAY 








DDCF 


B9 


EC 


00 


LDA 


$00EC, 


Y 




DDD2 


29 


01 




AND 


#$01 




isolate drive number 


DDD4 


85 


70 




STA 


$70 






DDD6 


AE 


53 


02 


LDX 


$0253 






DDD9 


B5 


F2 




LDA 


$L2,X 






DDDB 


29 


01 




AND 


#$01 




isolate drive number 


DDDD 


C5 


70 




CMP 


$70 




same drive? 


DDDF 


DO 


El 




BNE 


$DDC2 




no 


DDE1 


B9 


60 


02 


LDA 


$0260, 


Y 


sector number in directory 


DDE4 


D5 


D8 




CMP 


$D8,X 




same as file? 


DDE6 


DO 


DA 




BNE 


$DDC2 




no 
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DDE8 
DDEB 
DDED 
DDEF 
DDFO 



B9 66 02 
D5 DD 
DO D3 
18 
60 



LDA $0266, Y 
CMP $DD,X 
BNE SDDC2 
CLC 
RTS 



****************************** 



DDF1 
DDF4 
DDF6 
DDF9 
DDFC 



20 9E DF 
50 06 
20 5E DE 
20 99 D5 
60 



JSR $DF9E 
BVC $DDFC 
JSR $DE5E 
JSR SD599 
RTS 



****************************** 
DDFD 20 2B DE JSR $DE2B 



DEOO 


A5 


80 




LDA $80 


DE02 


91 


94 




STA ($94) ,Y 


DEO 4 


C8 






INY 


DEO 5 


A5 


81 




LDA $81 


DE07 


91 


94 




STA ($94) ,Y 


DE09 


4C 


05 


El 


JMP $E105 


*****************************! 


DEOC 


20 


2B 


DE 


JSR $DE2B 


DEOF 


Bl 


94 




LDA ($94) ,Y 


DE11 


85 


80 




STA $80 


DE13 


C8 






INY 


DE14 


Bl 


94 




LDA ($94) ,Y 


DE16 


85 


81 




STA $81 



DE18 



RTS 



****************************** 



DE19 



20 2B DE JSR $DE2B 



DE1C 


A9 00 


LDA i$00 


DE1E 


91 94 


STA ($94) ,Y 


DE20 


C8 


INY 


DE21 


A6 82 


LDX $82 


DE23 


B5 CI 


LDA $C1,X 


DE2 5 


AA 


TAX 


DE26 


CA 


DEX 


DE27 


8A 


TXA 


DE28 


91 94 


STA ($94) ,Y 


DE2A 


60 


RTS 


****************************** 


DE2B 


20 93 DF 


JSR SDF93 


DE2E 


OA 


ASL A 


DE2F 


AA 


TAX 


DE30 


B5 9A 


LDA $9A,X 


DE32 


85 95 


STA $95 


DE34 


A9 00 


LDA #$00 


DE36 


85 94 


STA $94 


DE38 


AO 00 


LDY #$00 


DE3A 


60 


RTS 



pointer same: 
no 



write a block of a rel-file 
get buffer number 
no rel-file? 
write block 
and verify 



write bytes for following track 
set buffer pointer 
track number 
in buffer 

sector number 
in buffer 
set rel-flag 

get following track and sector # 
set buffer pointer 
following track number 



and get sector number 

following track for last block 

set buffer pointer 

zero 

as track number 

channel number 
pointer in block 

minus 1 

as pointer in block 

buffer pointer to zero 
get buffer number 
times 2 

buffer pointer hi 
buffer pointer lo 
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****************************** 



get track and sector 



DE3B 


20 


EB 


DO 


JSR 


$D0EB 


get channel number 


DE3E 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


DE41 


85 


F9 




STA 


$F9 


save 


DE43 


0A 






ASL 


A 


times 2 


DE4 4 


A8 






TAY 






DE45 


B9 


06 


00 


LDA 


$0006, Y 


get track 


DE48 


85 


80 




STA 


$80 




DE4A 


B9 


07 


00 


LDA 


$0007, Y 


and sector # from disk controller 


DE4D 


85 


81 




STA 


$81 




DE4F 


60 






RTS 






***************** 


************* 




DE50 


A9 


90 




LDA 


#$90 


command code for writing 


DE52 


8D 


4D 


02 


STA 


$024D 




DE55 


DO 


28 




BNE 


$DE7F 




DE57 


A9 


80 




LDA 


#$80 


command code for reading 


DE59 


8D 


4D 


02 


STA 


$024D 




DE5C 


DO 


21 




BNE 


$DE7F 




DE5E 


A9 


90 




LDA 


#$90 


command code for writing 


DE60 


8D 


4D 


02 


STA 


S024D 




DE6 3 


DO 


26 




BNE 


$DE8B 




DE6 5 


A9 


80 




LDA 


#$80 


command code for reading 


DE67 


8D 


4D 


02 


STA 


S024D 




DE6A 


DO 


IF 




BNE 


$DE8B 




DE6C 


A9 


90 




LDA 


#$90 


command code for writing 


DE6E 


8D 


4D 


02 


STA 


$024D 




DE71 


DO 


02 




BNE 


$DE7 5 




DE73 


A9 


80 




LDA 


#$80 


command code for reading 


DE75 


8D 


4D 


02 


STA 


$024D 




DE78 


A6 


82 




LDX 


$82 


channel number 


DE7A 


B5 


CD 




LDA 


$CD,X 


side-sector buffer number 


DE7C 


AA 






TAX 






DE7D 


10 


13 




BPL 


$DE92 


buffer associated? 


DE7F 


20 


DO 


D6 


JSR 


$D6D0 


generate header for disk cont. 


DE8 2 


20 


93 


DF 


JSR 


$DF9 3 


get buffer number 


DE85 


AA 






TAX 






DE86 


A5 


7F 




LDA 


$7F 


drive number 


DE88 


9D 


5B 


02 


STA 


$025B,X 




DE8B 


20 


15 


El 


JSR 


$E115 


buffer number 


DE8E 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


DE91 


AA 






TAX 






DE9 2 


4C 


06 


D5 


JMP 


$D506 


write block 


****************************** 


get following track & sector from 


DE95 


A9 


00 




LDA 


#$00 


buffer 


DE97 


20 


C8 


D4 


JSR 


$D4C8 


buffer pointer to zero 


DE9A 


20 


37 


Dl 


JSR 


$D137 


get byte 


DE9D 


85 


80 




STA 


$80 


save as track 


DE9F 


20 


37 


Dl 


JSR 


$D137 


get byte 


DEA2 


85 


81 




STA 


$81 


as sector 
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DEA4 



60 



RTS 



****************************** 



DEA5 
DEA6 
DEA8 
DEAA 
DEAC 
DEAF 
DFB1 
DEB4 
DEB6 
DEB7 
DEB8 
DEB9 
DEBB 
DEBD 
DEBE 
DECO 



48 

A9 00 

85 6F 

85 71 

B9 E0 FE 

85 70 

BD E0 FE 

85 72 

68 

A8 

88 

Bl 6F 

91 71 

88 

10 F9 

60 



PHA 

LDA #$00 

STA $6F 

STA $71 

LDA $FEE0,Y 

STA $70 

LDA $FEE0,X 

STA $72 

PLA 

TAY 

DEY 

LDA ($6F) ,Y 

STA ($71),Y 

DEY 

BPL SDEB9 

RTS 



****************************** 



DEC1 
DEC2 
DEC5 
DEC7 
DEC9 
DECB 
DECC 
DECE 
DECF 
DED1 



A8 

B9 E0 FE 

85 70 

A9 00 

85 6F 

A8 

91 6F 

C8 

DO FB 

60 



TAY 

LDA SFEEO.Y 

STA $70 

LDA #$00 

STA $6F 

TAY 

STA ($6F) ,Y 

INY 

BNE $DECC 

RTS 



****************************** 



DED2 
DED4 
DED7 
DED9 
DEDB 



A9 00 

20 DC DE 

AO 02 

Bl 94 
60 



LDA #$00 
JSR SDEDC 
LDY #$02 
LDA ($94) ,Y 
RTS 



****************************** 



DEDC 
DEDE 
DEEO 
DEE2 
DEE3 
DEE6 
DEE8 



85 94 

A6 82 

R5 CD 

AA 

BD EO FE 

85 95 

60 



STA $94 

LDX S82 

LDA $CD,X 

TAX 

LDA $FEE0,X 

STA $95 

PTS 



****************************** 

DEE9 48 PHA 

DEEA 20 DC DE JSP $DEDC 

DEED 48 PHA 

DEEE 8A TXA 

DEEF OA ASL A 

DEFO AA TAX 



copy buffer contents 

buffer address Y, hi 
buffer address X, hi 



copy contents of buffer Y 
to buffer X 



erase buffer Y 
buffer number 
get hi-address 

lo-address 



erase buffer 

get side-sector number 
buffer pointer to zero 
byte 2 contains the side-sector # 



set buffer ptr to side-sector 
pointer lo 
channel number 
buffer number 

buffer address hi 
set 



buffer pointer for side-sector 
pointer in side-sector 
set buffer pointer 

buffer number 
times 2 
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DEF1 


68 






PLA 




buffer pointer hi 


DEF2 


95 


9A 




STA 


$9A,X 




DEF4 


68 






PLA 




buffer pointer lo 


DEF5 


95 


99 




STA 


$99, X 




DEF7 


60 






RTS 






****************************** 


get side-sector and buffer ptr 


DEF8 


20 


66 


DF 


JSR 


$DF66 


is side-sector in buffer 


DEFB 


30 


OE 




BMI 


$DF0B 


no 


DEFD 


50 


13 




BVC 


SDF12 


ok 


DEFF 


A6 


82 




LDX 


$82 


channel number 


DF01 


B5 


CD 




LDA 


$CD,X 


buffer number 


DF03 


20 


IB 


DF 


JSR 


$DFlB 


read side-sector 


DF06 


20 


66 


DF 


JSR 


SDF66 


and check if in buffer 


DF09 


10 


07 




BPL 


$DF12 


yes? 


DFOB 


20 


CB 


El 


JSR 


$E1CB 


get last side-sector 


DFOE 


2C 


CE 


FE 


BIT 


$FECE 


set V bit 


DF11 


60 






RTS 






DF12 


A5 


D6 




LDA 


$D6 


side-sector end pointer 


DF14 


20 


E9 


DF, 


JSR 


$DEE9 


set pointer in side-sector 


DF17 


2C 


CD 


DE 


BIT 


$FECD 


erase V bit 


DF1A 


60 






RTS 






****************************** 


read side-sector 


DF1B 


85 


F9 




STA 


$F9 


buffer number 


DF1D 


A9 


80 




LDA 


#$80 


command code for reading 


DF1F 


DO 


04 




BNE 


SDF25 




****************************** 


write side-sector 


DF21 


85 


F9 




STA 


$F9 


buffer number 


DF23 


A9 


90 




LDA 


#$90 


command code for writing 


DF25 


48 






PHA 






DF26 


B5 


EC 




LDA 


$EC,X 




DF28 


29 


01 




AND 


#$01 


isolate drive number 


DF2A 


85 


7F 




STA 


$7F 




DF2C 


68 






PLA 






DF2D 


05 


7F 




ORA 


$7F 


command code plus drive number 


DF2F 


8D 


4D 


02 


STA 


$024D 


save 


DF3 2 


Bl 


94 




LDA 


($94), Y 


track number 


DF34 


85 


80 




STA 


$80 




DF3 6 


C8 






INY 






DF37 


Bl 


94 




LDA 


($94) ,Y 


sector number 


DF39 


85 


81 




STA 


$81 




DF3B 


A5 


F9 




LDA 


$F9 


buffer number 


DF3D 


20 


D3 


D6 


JSR 


$D6D3 


transmit param to disk control 


DF40 


A6 


F9 




LDX 


$F9 


buffer number 


DF42 


4C 


93 


D5 


JMP 


$D593 


tranmit cmd to disk controller 



****************************** 

DF45 A6 82 LDX $82 
DF47 B5 CD LDA $CD,X 
DF49 4C EB D4 JMP $D4EB 

****************************** 



DF4C 



A9 78 



LDA #$78 



set buffer pointer in side-sector 

channel number 

buffer number 

set buffer pointer 

calculate block # of a rel-file 
120 block ptrs per side-sector 
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DF4E 
DF51 
DF52 
DF54 
DF56 
DF57 
DF5A 
DF5C 
DF5D 
DF5F 
DF61 
DF63 
DF65 



20 5C DF 

CA 

10 F8 

A5 72 

4A 

20 



5C DF 



A5 73 
18 

65 70 
85 70 
90 02 
E6 71 
60 



JSR 
DEX 
BPL 
LDA 
LSP 
JSR 
LDA 
CLC 
ADC 
STA 
BCC 
INC 
RTS 



$DF5C 

$DF4C 

$72 

A 

$DF5C 

$73 

$70 
$70 
$DF65 
$71 



add to $70/$71 

side-sector number 

next side-sector? 

pointer value in last block 

divided by 2 

add to previous sum 

number of the side-sector block 



add 



****************************** 



DF66 
DF69 
DF6B 
DF6D 
DF6F 
DF71 
DF73 
DF7 6 
DF77 
DF7A 



20 D2 DE 
C5 D5 
DO 0E 
A4 D6 
Bl 94 
F0 04 
2C CD FE 
60 

2C CF FE 
60 



JSR $DED2 
CMP $D5 
BNE $DF7B 
LDY $D6 
LDA ($94) ,Y 
BEO $DF77 
BIT $FECD 
RTS 

BIT $FECF 
RTS 



verify side-sector in buffer 

get side-sector number 

= number of necessary block? 

no 

pointer in side-sector 

track number 

erase bits 

set N-bit 



DF7B 
DF7D 
DF7F 
DF81 
DF8 2 
DF83 
DF8 5 
DF87 
DF89 
DF8B 
DF8E 



A5 D5 
C9 06 
B0 0A 
0A 
A8 

A9 04 
85 94 
Bl 94 
DO 04 
2C DO FE 
60 



LDA $D5 

CMP #$06 

BCS ?DF8B 

ASL A 

TAY 

LDA #$04 

STA $94 

LDA ($94) ,Y 

BNE $DF8F 

BIT $FEDO 

RTS 



side-sector number 
6 or greater? 
yes 



track number 
set N and V bits 



DF8F 2C CE FE BIT $FECE 
DF92 60 RTS 



set V bit 



****************************** 



DF93 


A6 


82 


LDX 


$82 


DF95 


B5 


A7 


LDA 


$A7,X 


DF97 


10 


02 


BPL 


$DF9B 


DF99 


B5 


AE 


LDA 


$AE,X 


DF9B 


29 


BF 


AND 


#$BF 


DF9D 


60 




RTS 




DF9E 


A6 


82 


LDX 


$82 


DFA0 


8E 


57 02 


STX 


$0257 


DFA3 


B5 


A7 


LDA 


$A7,X 


DFA5 


10 


09 


BPL 


$DFB0 


DFA7 


8A 




TXA 




DFA8 


18 




CLC 





get buffer number 
channel number 
buffer number 

buffer number from second table 
erase V bit 



channel number 

save 

get buffer number 

buffer allocated 
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DFA9 


69 


07 




ADC 


#$07 


DFAB 


8D 


57 


02 


STA 


$0257 


DFAE 


B5 


AE 




LDA 


$AE,X 


DFBO 


85 


70 




STA 


$70 


DFB2 


29 


IF 




AND 


#$1F 


DFB4 


24 


70 




BIT 


$70 


DFB6 


60 






RTS 




DFB7 


AD 


82 




LDX 


$82 


DFB9 


B5 


A7 




LDA 


$A7,X 


DFBB 


30 


02 




BMI 


$DFBF 


DFBD 


B5 


AE 




LDA 


$AE,X 


DFBF 


C9 


FF 




CMP 


#$FF 


DFC1 


60 






PTS 




DFC2 


A6 


82 




LDX 


$82 


DFC4 


09 


80 




ORA 


#$80 


DFC6 


B4 


A7 




LDY 


$A7,X 


DFC8 


10 


03 




BPL 


$DFCD 


DFCA 


95 


A7 




STA 


$A7,X 


DFCC 


60 






RTS 




DFCD 


95 


AE 




STA 


$AE,X 


DFCF 


60 






RTS 




***************************** 


DFDO 


A9 


20 




LDA 


#$20 


DFD2 


20 


9D 


DD 


JSR 


5DD9D 


DFD5 


A9 


80 




LDA 


#$80 


DFD7 


20 


A6 


DD 


JSR 


$DDA6 


DFDA 


DO 


41 




BNE 


$E01D 


DFDC 


A6 


82 




LDX 


$82 


DFDE 


F6 


B5 




INC 


$B5,X 


DFEO 


DO 


02 




BNE 


$DFE4 


DFE2 


F6 


BB 




INC 


$BB,X 


DFE4 


A6 


82 




LDX 


$82 


DFE6 


B5 


CI 




LDA 


$C1,X 


DFE8 


FO 


2E 




BEO 


$E018 


DFEA 


20 


E8 


D4 


JSR 


$D4E8 


DFED 


A6 


82 




LDX 


$82 


DFEF 


D5 


CI 




CMP 


$C1,X 


DFF1 


90 


03 




BCC 


$DFF6 


DFF3 


20 


3C 


EO 


JSR 


$E03C 


DFF6 


A6 


82 




LDX 


$82 


DFF8 


B5 


CI 




LDA 


SC1,X 


DFFA 


20 


C8 


D4 


JSR 


$D4C8 


DFFD 


Al 


99 




LDA 


($99) ,X 


DFFF 


85 


85 




STA 


$85 


E001 


A9 


20 




LDA 


#$20 


E003 


20 


9D 


DD 


JSR 


$DD9D 


E006 


20 


04 


E3 


JSR 


$E304 


E009 


48 






PHA 




EOOA 


90 


28 




BCC 


SE034 


EOOC 


A9 


00 




LDA 


#800 


EOOE 


20 


F6 


D4 


JSR 


$D4F6 


E011 


DO 


21 




BNE 


$E034 



increment number by 7 

and save 

buffer number from table 2 

erase the highest 3 bits 



channel number 

buffer number 

buffer free? 

buffer number from table 2 

free? 



get next record in rel-file 

erase bit 5 

test bit 7 

set? 

channel number 

increment record number 

record number hi 

channel number 

write pointer 

zero? 

set buffer pointer 

channel number 

buffer ptr smaller than write ptr 

yes 

write block, read next block 

channel number 

write pointer 

set buffer pointer = write ptr 

byte from buffer 

put in output register 

erase bit 5 

add record length to write ptr 

and save 

not yet in last block? 

get track number 
does block exist? 
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E013 


68 






PLA 




pointer 


E014 


C9 


02 




CMP 


#$02 


= 2 


E016 


FO 


12 




BEO 


$E02A 


yes 


E018 


A9 


80 




LDA 


#$80 




E01A 


20 


97 


DD 


JSR 


$DD97 


set bit 7 


E01D 


20 


2F 


Dl 


JSR 


$D12F 


get byte from buffer 


E020 


B5 


99 




LDA 


$99, X 


buffer pointer 


E022 


99 


44 


02 


STA 


$0244, Y 


as end pointer 


E025 


A9 


0D 




LDA 


#$0D 


CR 


E027 


85 


85 




STA 


$85 


in output register 


E029 


60 






RTS 






E02A 


20 


35 


EO 


JSR 


$E035 




E02D 


A6 


82 




LDX 


$82 


channel number 


E02F 


A9 


00 




LDA 


#$00 




E031 


95 


CI 




STA 


$C1,X 


write pointer to zen 


E033 


60 






RTS 







E034 68 PLA 

E035 A6 82 LDX $82 

E037 95 CI STA $C1 ,X 

E039 4C 6E El JMP $E16E 

****************************** 



E03C 


20 


D3 


Dl 


JSR 


SD1D3 


E03F 


20 


95 


DE 


JSR 


SDE95 


E042 


20 


9E 


DF 


JSR 


$DF9E 


E045 


50 


16 




BVC 


$E05D 


E047 


20 


5E 


DE 


JSR 


SDE5E 


E04A 


20 


IE 


CF 


JSR 


$CF1E 


E04D 


A9 


02 




LDA 


#$02 


E04F 


20 


C8 


D4 


JSR 


$D4C8 


E052 


20 


AB 


DD 


JSR 


SDDAB 


E055 


DO 


24 




BNE 


$E078 


E057 


20 


57 


DE 


JSR 


SDE57 


E05A 


4C 


99 


D5 


JMP 


SD599 


E05D 


20 


IE 


CF 


JSR 


SCF1E 


E060 


20 


AB 


DD 


JSR 


$DDAB 


E063 


DO 


06 




BNE 


$E068 


E065 


20 


57 


DE 


JSR 


$DE57 


E068 


20 


99 


D5 


JSR 


$D599 


E06B 


20 


95 


DE 


JSR 


$DE9 5 


E06E 


A5 


80 




LDA 


$80 


E070 


F0 


09 




BEO 


SE07B 


E072 


20 


IE 


CF 


JSR 


$CF1E 


E075 


20 


57 


DE 


JSR 


$DE57 


E078 


20 


IE 


CF 


JSR 


$CF1E 


E07B 


60 






RTS 





channel number 
set write pointer 



write block and read next block 

get drive number 

get track and sector number 

get buffer number 

no rel-file? 

write block 

change buffer 

buffer pointer to 2 

command code for writing? 

no 

read block 

and verify 

change buffer 

command code for writing? 

no 

read block 

and verify 

get track and sector number 

track 

no following track 

cnange buffer 

read block 

change buffer 



****************************** 

E07C 20 05 El JSR $E105 

E07F 20 93 DF JSR $DF9 3 

E082 0A ASL A 

E08 3 AA TAX 



write a byte in a record 

get buffer number 
times 2 



193 



Anatomy of the 1541 Disk Drive 



E084 


A5 


85 




LDA 


$85 


E086 


81 


99 




STA 


($99, X) 


E088 


B4 


99 




LDY 


$99, X 


E08A 


C8 






INY 




E08B 


DO 


09 




BNE 


$E096 


E08D 


A4 


82 




LDY 


$82 


E08F 


B9 


CI 


00 


LDA 


$00C1,Y 


E092 


FO 


0A 




BEO 


$E09E 


E094 


AO 


02 




LDY 


#$02 


E096 


98 






TYA 




E097 


A5 


82 




LDY 


$82 


E099 


D9 


CI 


00 


CMP 


$00C1,Y 


E09C 


DO 


05 




BNE 


$E043 


E09E 


A9 


20 




LDA 


#$20 


EOAO 


4C 


97 


DD 


JMP 


SDD97 



data byte 

write in buffer 

buffer pointer 

increment 

not equal zero? 

channel number 

write pointer 

equal zero? 

buffer pointer to 2 

channel number 

buffer pointer = write pointer? 

no 

set bit 5 



E0A3 F6 99 INC $99, X 

E0A5 DO 03 BNE $E0AA 

E0A7 20 3C E0 JSR $E03C 

E0AA 60 RTS 



increment buffer pointer 

not zero? 

else write block, read next one 



****************************** 



write byte in rel-file 



E0AB 


A9 


A0 




LDA 


#$A0 




E0AD 


20 


A6 


DD 


JSR 


$DDA6 


test bits 6 s. 7 


E0B0 


DO 


27 




BNE 


$E0D9 


set? 


E0B2 


A5 


85 




LDA 


$85 


data byte 


E0B4 


20 


7C 


EO 


JSR 


$E07C 


write in record 


E0B7 


A5 


F8 




LDA 


$F8 


end? 


E0B9 


F0 


0D 




BEO 


$E0C8 


yes 


E0BB 


60 






RTS 






E0BC 


A9 


20 




LDA 


#$20 




E0BE 


20 


A6 


DD 


JSR 


$DDA6 


test bit 5 


E0C1 


F0 


05 




BEQ 


$E0C8 


not set 


E0C3 


A9 


51 




LDA 


#$51 


51, 'overflow in rec 


E0C5 


8D 


6C 


02 


STA 


$026C 


set error flag 


E0C8 


20 


F3 


EO 


JSR 


$E0F3 


fill remainder with 


E0CB 


20 


53 


El 


JSR 


$E153 




E0CE 


AD 


6C 


02 


LDA 


$026C 


error flag set? 


E0D1 


F0 


03 




BEO 


$E0D6 


no 


E0D3 


4C 


C8 


CI 


JMP 


SC1C8 


set error message 


E0D6 


4C 


BC 


E6 


JMP 


$E6BC 


error free execution 


E0D9 


29 


80 




AND 


#$80 


bit 7 set? 


E0DB 


DO 


05 




BNE 


$E0E2 


yes 


E0DD 


A5 


F8 




LDA 


$F8 




E0DF 


F0 


DB 




BEO 


SEOBC 


end? 


E0E1 


60 






RTS 






E0E2 


A5 


85 




LDA 


$85 


data byte 


E0E4 


48 






PHA 






E0E5 


20 


1C 


E3 


JSR 


$E31C 


expand side-sector 


E0E8 


fi8 






PLA 






E0E9 


85 


85 




STA 


$85 




E0EB 


A9 


80 




LDA 


#$80 
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EOED 20 9D DD 
E0F0 4C B2 E0 



JSR SDD9D 
JMP $E0B2 



erase bit 7 

write byte in file 



****************************** flU record wlch zeroes 



E0F3 
E0F5 
E0F8 
EOFA 
EOFC 
EOFE 
E101 

E104 



A9 20 

20 A6 DD 

DO OA 

A9 00 

85 85 

20 7C EO 

4C F3 EO 

60 



LDA #$20 
JSR $DDA6 
BNE $E104 
LDA #$00 
STA $85 
JSR $E07C 
JMP $E0F3 

RTS 



****************************** 



E105 


A9 


40 




LDA 


#$40 


E107 


20 


97 


DD 


JSR 


5DD97 


E10A 


20 


9E 


DF 


JSR 


$DF9E 


E10D 


09 


40 




ORA 


#$40 


E10F 


AE 


57 


02 


LDX 


$0257 


E112 


95 


A7 




STA 


$A7,X 


E114 


60 






RTS 




E115 


20 


9E 


DF 


JSR 


$DF9E 


E118 


29 


BF 




AND 


#$BF 


E11A 


AE 


57 


02 


LDX 


$0257 


E11D 


95 


A7 




STA 


$A7,X 


E11F 


60 






RTS 




***************************** 


E120 


A9 


80 




LDA 


#$80 


E122 


20 


A6 


DD 


JSR 


$DDA6 


E125 


DO 


37 




BNE 


SE15E 


E127 


20 


2F 


Dl 


JSR 


$D12F 


E12A 


B5 


99 




LDA 


$99, X 


E12C 


D9 


44 


02 


CMP 


$0244, Y 


E12F 


FO 


22 




BEO 


$E135 


E131 


F6 


99 




INC 


$99, X 


E133 


DO 


06 




BNE 


$E13B 


E135 


20 


3C 


EO 


JSR 


$E03C 


E138 


20 


2F 


Dl 


JSR 


$D12F 


E13B 


Al 


99 




LDA 


($99, X) 


E13D 


99 


3E 


02 


STA 


$023E,Y 


E140 


A9 


89 




LDA 


#$89 


E142 


99 


F2 


00 


STA 


$00F2,Y 


E145 


B5 


99 




LDA 


$99, Y 


E147 


D9 


44 


02 


CMP 


$0244, Y 


E14A 


FO 


01 




BEO 


$E14D 


E14C 


60 






RTS 




E14D 


A9 


81 




LDA 


#$81 


E14F 


99 


F2 


00 


STA 


$00F2,Y 


E152 


60 






RTS 




E153 


20 


DO 


DF 


JSR 


SDFDO 



test bit 5 
set? 

zero as data byte 
write in record 
until record full 



write buffer number in table 

set bit 6 

get buffer number 

set bit 6 

channel number + 7 

write in table 



get buffer number 
erase bit 6 
channel number 
write in table 



get byte from rel-file 

test bit 7 

set? 

get byte from buffer 

buffer pointer 

compare to end pointer 

equal? 

increment buffer pointer 

not zero? 

write block, read next one 

get byte from buffer 

in output register 

set READ and WRITE flag 
buffer pointer 
compare to end pointer 
same? 



set flag for end 
find next record 
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E156 
E159 
E15B 

E15E 
E160 
E162 
E165 
E167 
E169 
E16B 

E16E 
E170 
E172 
E174 
E176 
E178 
E17A 
E17C 
E17E 
E180 
E182 
E185 
E187 
E189 
E18B 
E18D 
E190 
E193 
E195 
E197 
E19A 

E19D 
E1A0 
E1A2 
E1A4 
E1A7 
E1A9 
El AC 
E1AE 
E1B1 

E1B2 
E1B5 
E1B7 
E1B9 
E1BB 
E1BC 
E1BE 
E1C0 
E1C2 
E1C4 
E1C6 



20 2F Dl 

A5 85 

4C 3D El 

A6 82 

A9 0D 

9D 3E 02 

A9 81 

95 F2 

A9 50 

20 C8 CI 

A6 82 

B5 CI 

85 87 

C6 87 

C9 02 

DO 04 

A9 FF 

85 87 

B5 C7 

85 88 

20 E8 D4 

A6 82 

C5 87 

90 19 

FO 17 

20 IE CF 

20 B2 El 

90 08 

A6 82 

9D 44 02 

4C IE CF 

20 IE CF 

A9 FF 

85 87 

20 B2 El 

BO 03 

20 E8 D4 

A6 82 

9D 44 02 
60 

20 2B DE 

A4 87 

Bl 94 

DO OD 
88 

CO 02 

90 04 

C6 88 

DO F3 

C6 88 
18 



JSR $D12F 
LDA $85 
JMP $E13D 

LDX $82 
LDA #$0D 
STA $023E,X 
LDA #$81 
STA $F2,X 
LDA #$50 
JSR SC1C8 



LDX 
LDA 
STA 
DEC 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
JSR 
LDX 
CMP 
BCC 
BEO 
JSR 
JSR 
BCC 
LDX 
STA 
JMP 



$82 

$C1,X 

$87 

$87 

#$02 

$E17E 

#$FF 

$87 

$C7,X 

$88 

$D4E8 

$82 

$87 

$E1A4 

$E1A4 

SCF1E 

$E1B2 

$E19D 

$82 

$0244, X 

$CF1E 



JSR $CF1E 
LDA #$FF 
STA $87 
JSR SE1B2 
BCS $E1AC 
JSR $D4E8 
LDX $82 
STA $0244, X 
RTS 

JSR $DE2B 
LDY $87 
LDA (S94) ,Y 
BNE SE1C8 
DEY 

CPY #$02 
BCC $E1C4 
DEC $88 
BNE SE1B7 
DEC 588 
CLC 



get buffer and channel number 

data byte 

into output register 

channel number 

CR 

into output register 

set flag for end 

50, 'record not present' 

channel number 
write pointer 



equal 2? 
no 



record length 

set buffer pointer 

channel number 

buffer pointer > write pointer? 

no 

change buffer 



channel number 
change buffer 
change buffer 



sec buffer pointer 
channel number 
end pointer 



buffer pointer to zero 

byte from buffer 
not zero? 
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E1C7 



60 



RTS 



E1C8 


98 




TYA 




E1C9 


38 




SEC 




E1CA 


60 




PTS 




***************************** 


E1CB 


20 


D2 DE 


JSR 


$DED2 


E1CE 


85 


D5 


STA 


$D5 


El DO 


A9 


04 


LDA 


#$04 


E1D2 


85 


94 


STA 


$94 


E1D4 


A0 


OA 


LDY 


#$0A 


E1D6 


DO 


04 


BNE 


$E1DC 


E1D8 


88 




DEY 




E1D9 


88 




DEY 




El DA 


30 


26 


BMI 


$E202 


El DC 


Bl 


94 


LDA 


($94), Y 


E1DE 


FO 


F8 


BEO 


$E1D8 


E1E0 


98 




TYA 




E1E1 


4A 




LSR 


A 


E1E2 


C5 


D5 


CMP 


$D5 


E1E4 


FO 


09 


BEO 


SE1EF 


E1E6 


85 


D5 


STA 


$D5 


E1E8 


A6 


82 


LDX 


$82 


E1EA 


B5 


CD 


LDA 


$CD,X 


E1EC 


20 


IB DF 


JSR 


$DF1B 


E1EF 


AO 


00 


LDY 


#$00 


E1F1 


84 


94 


STY 


$94 


E1F3 


Bl 


94 


LDA 


($94), Y 


E1F5 


DO 


OB 


BNE 


$6202 


E1F7 


C8 




INY 




E1F8 


Bl 


94 


LDA 


($94) ,Y 


E1FA 


A8 




TAY 




E1FB 


88 




DEY 




E1FC 


84 


D6 


STY 


$D6 


E1FE 


98 




TYA 




E1FF 


4C 


E9 DE 


JMP 


SDEE9 


E202 


A9 


67 


#$67 


F 


E204 


20 


45 E6 


JSR 


$E645 



****************************** 



E207 



20 B3 C2 JSR $C2B3 



E20A 


AD 


01 


02 


LDA 


$0201 


E20D 


85 


83 




STA 


$83 


E20F 


20 


EB 


DO 


JSR 


$D0EB 


E212 


90 


05 




BCC 


$E219 


E214 


A9 


70 




LDA 


#$70 


E216 


20 


C8 


CI 


JSR 


SC1C8 



E219 A9 AO LDA #$A0 

E21B 20 9D DD JSR SDD9D 

E21E 20 25 Dl JSR $D125 

E221 FO 05 BEO $E228 



get last side-sector 

get number of the side-sector 

save 

pointer to side-sectors 



track # of the previous block 



divide by 2 

= number of the actual block? 

yes 

else save all numbers 

channel number 

buffer number 

read block 

buffer pointer 
track number 
another block? 

sector number = end pointer 



save end pointer 
set buffer pointer 

67, 'illegal track or sector' 

P-command, 'Record' 
verify lines 
secondary address 

find channel number 
found? 

70, 'no block' 



erase bits 6 & 7 
verify if 'REL'-file 
yes 
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E223 


A9 


64 




LDA 


#$64 


E225 


20 


C8 


CI 


JSR 


$C1C8 


E228 


B5 


EC 




LDA 


$EC,X 


E22A 


29 


01 




AND 


#$01 


E22C 


85 


7F 




STA 


$7F 


E22E 


AD 


02 


02 


LDA 


$0202 


E231 


95 


B5 




STA 


$B5,X 


E233 


AD 


03 


02 


LDA 


$0203 


E236 


95 


BB 




STA 


$BB,X 


E238 


A6 


B2 




LDA 


$82 


E23A 


A9 


89 




LDA 


#$89 


E23C 


95 


F2 




STA 


$F2,X 


E23E 


AD 


04 


02 


LDA 


$0204 


E241 


F0 


10 




BEO 


$E253 


E243 


38 






SEC 




E244 


E9 


01 




SBC 


#$01 


E246 


FO 


0B 




BEO 


$E253 


E248 


D5 


C7 




CMP 


SC7,X 


E24A 


90 


07 




BCC 


$E253 


E24C 


A9 


51 




LDA 


#$51 


E24E 


8D 


6C 


02 


STA 


$026C 


E251 


A9 


00 




LDA 


#$00 


E253 


85 


D4 




STA 


$D4 


E255 


20 


0E 


CE 


JSR 


$CE0E 


E258 


20 


F8 


DE 


JSR 


SDEF8 


E25B 


50 


08 




BVC 


$E265 


E25D 


A9 


80 




LDA 


#$80 


E25F 


20 


97 


DD 


JSR 


$DD97 


E262 


4C 


5E 


El 


JMP 


$E15E 


E265 


20 


75 


E2 


JSR 


SE275 


E268 


A9 


80 




LDA 


#$80 


E26A 


20 


A6 


DD 


JSR 


$DDA6 


E26D 


FO 


03 




BEO 


$E272 


E26F 


4C 


5E 


El 


JMP 


$E15E 


E272 


4C 


94 


CI 


JMP 


$C194 


E275 


20 


9C 


E2 


JSR 


SE29C 


E278 


A5 


D7 




LDA 


$D7 


E27A 


20 


C8 


D4 


JSR 


$D4C8 


E27D 


A6 


82 




LDX 


$82 


E27F 


B5 


C7 




LDA 


$C7,X 


E281 


38 






SEC 




E282 


E5 


D4 




SBC 


$D4 


E284 


B0 


03 




BCS 


SE289 


E286 


4C 


02 


E2 


JMP 


$E202 


E289 


18 






CLC 




E28A 


65 


D7 




ADC 


$D7 


E28C 


90 


03 




BCC 


$E291 


E28E 


69 


01 




ADC 


#$01 


E290 


38 






SEC 




E291 


20 


09 


EO 


JSR 


SE009 


E294 


4C 


38 


El 


JMP 


SE138 



64, 'file type mismatch' 



drive number 
record number lo 

record number hi 

channel number 

READ and WRITE flag 

byte-pointer 

zero? 



compare with record length 
51, 'overflow in record' 



calculate pointer in rel-file 
and read appropriate side-sector 
does block exist? 

set Dit 7 

and 50, 'record not present' 



test bit 7 

not set 

50, 'record not present' 

done 



pointer in rel-file 
set buffer pointer 
channel number 
record length 

minus position 

positive? 

67, 'illegal track or sector' 



add pointer in data block 
no overflow 
plus 2 

set pointer 

get byte from buffer 
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E297 


A9 


51 




LDA 


#$51 






E299 


20 


C8 


CI 


JSR 


$C1C8 




51, 'overflow in record' 


E29C 


A5 


94 




LDA 


$94 




buffer pointer lo 


E29E 


85 


89 




STA 


$89 






E2A0 


A5 


95 




LDA 


$95 




buffer pointer hi 


E2A2 


85 


8A 




STA 


$8A 






E2A4 


20 


DO 


E2 


JSR 


$E2D0 




compare track and sector 


E2A7 


DO 


01 




BNE 


SE2AA 




not equal? 


E2A9 


60 






RTS 








E2AA 


20 


Fl 


DD 


JSR 


$DDF1 






E2AD 


20 


OC 


DE 


JSR 


SDEOC 






E2B0 


A5 


80 




LDA 


$80 




track 


E2B2 


F0 


OE 




BEO 


$E2C2 




no block following? 


E2B4 


20 


D3 


E2 


JSR 


SE2D3 




compare track and sector number 


E2B7 


DO 


06 




BNE 


$E2BF 




not equal? 


E2B9 


20 


IE 


CF 


JSR 


SCF1E 




change buffer 


E2BC 


4C 


DA 


D2 


JMP 


SD2DA 






E2BF 


20 


DA 


D2 


JSR 


$D2DA 






E2C2 


A0 


00 




LDY 


#$00 






E2C4 


Bl 


89 




LDA 


($89), 


.Y 


track 


E2C6 


85 


80 




STA 


$80 






E2C8 


C8 






INY 








E2C9 


Bl 


89 




LDA 


($89), 


,Y 


and sector of the next block 


E2CB 


85 


81 




STA 


$81 






E2CD 


4C 


AF 


DO 


JMP 


$D0AF 




read block 


E2D0 


20 


3E 


DE 


JSR 


SDE3E 






E2D3 


A0 


00 




LDY 


#$00 






E2D5 


Bl 


89 




LDA 


($89), 


,Y 


track number 


E2D7 


C5 


80 




CMP 


$80 




compare 


E2D9 


F0 


01 




BEO 


$E2DC 






E2DB 


60 






RTS 








E2DC 


C8 






INY 








E2DD 


Bl 


89 




LDA 


($89), 


Y 


sector number 


E2DF 


C5 


81 




CMP 


$81 




compare 


E2E1 


60 






RTS 








****************************** 


subdivide records in data block 


E2E2 


20 


2B 


DE 


JSR 


$DE2B 




set buffer pointer 


E2E5 


AO 


02 




LDY 


#$02 






E2E7 


A9 


00 




LDA 


#$00 






E2E9 


91 


94 




STA 


($94), 


Y 


erase buffer 


E2EB 


C8 






INY 








E2EC 


DO 


FB 




BNE 


$E2E9 






E2EE 


20 


04 


E3 


JSR 


SE304 




set pointer to next record 


E2F1 


95 


CI 




STA 


$C1,X 






E2F3 


A8 






TAY 








E2F4 


A9 


FF 




LDA 


#$FF 






E2F6 


91 


94 




STA 


($94), 


Y 


$FF as 1st character in record 


E2F8 


20 


04 


E3 


JSR 


$E304 




set pointer to next record 


E2FB 


90 


F4 




BCC 


$E2F1 




done in this block? 


E2FD 


DO 


04 




BNE 


$E303 




block full? 
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E2FF A9 00 LDA #$00 

E301 95 CI STA $C1,X write pointer to zero 

E303 60 RTS 

****************************** se £ pointer to next record 

E304 A6 82 LDX $82 channel number 

E306 B5 CI LDA SC1,X write pointer 

E308 38 SEC 

E309 F0 0D BEO $E318 equal zero? 

E30B 18 CLC 

E30C 75 C7 ADC $C7,X add record length 

E30E 90 0B BCC $E31B smaller than 256? 

E310 DO 06 BNE SE318 equal 256? 

E312 A9 02 LDA #$02 

E314 2C CC FE BIT $FECC 

E317 60 RTS 

E318 69 01 ADC #$01 add two 

E31A 38 SEC 

E31B 60 PTS 



****************************** 



expand side-sector 



E31C 20 D3 Dl JSR $D1D3 get drive number 

E31F 20 CB El JSR $E1CB get last side-sector 

E322 20 9C E2 JSR $E29C 

E325 20 7B CF JSR SCF7B 

E328 A5 D6 LDA $D6 

E32A 85 87 STA $87 

E32C A5 D5 LDA $D5 side-sector number 

E32E 85 86 STA $86 

E330 A9 00 LDA #$00 

E332 85 88 STA $88 

E334 A9 00 LDA #$00 

E336 85 D4 STA $D4 

E338 20 0E CE JSR $CE0E calculate side-sector no. and ptr 

E33B 20 4D EF JSR $EF4D number of free blocks 

E33E A4 82 LDY $82 channel number 

E340 B6 C7 LDX $C7,Y record length 

E34 2 CA DEX 

E343 8A TXA 

E344 18 CLC 

E345 65 D7 ADC $D7 plus pointer in data block 

E347 90 0C BCC $E355 

E349 E6 D6 INC $D6 

E34B E6 D6 INC SD6 increment ptr to end by 2 

E34D DO 06 BNE $E355 

E34F E6 D5 INC $D5 increment side-sector number 

E351 A9 10 LDA #$10 

E353 85 D6 STA # D6 set pointer to 16 

E355 A5 87 LDA $87 

E357 18 CLC 

E358 69 02 ADC #$02 

E35A 20 E9 DE JSR SDEE9 set buffer ptr for side-sector 

E35D A5 D5 LDA $D5 side-sector number 

E35F C9 06 CMP #$06 
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E361 


90 


05 




BCC 


$E368 


E363 


A9 


52 




LDA 


#$52 


E365 


20 


C8 


CI 


JSR 


$C1C8 


E368 


A5 


D6 




LDA 


$D6 


E36A 


38 






SEC 




E36B 


E5 


87 




SBC 


$87 


E36D 


BO 


03 




BCS 


$E372 


E36F 


E9 


OF 




SBC 


#$OF 


E371 


18 






CLC 




E372 


85 


72 




STA 


$72 


E374 


A5 


D5 




LDA 


$D5 


E376 


E5 


86 




SBC 


$86 


E378 


85 


73 




STA 


$73 


E37A 


A2 


00 




LDX 


#$00 


E37C 


86 


70 




STX 


$70 


E37E 


86 


71 




STX 


$71 


E380 


AA 






TAX 




E381 


20 


51 


DF 


JSR 


$DF51 


E384 


A5 


71 




LDA 


$71 


E386 


DO 


07 




BNE 


$E38F 


E388 


A6 


70 




LDX 


$70 


E38A 


CA 






DEX 




E38B 


DO 


02 




BNE 


$E38F 


E38D 


E6 


88 




INC 


$88 


E38F 


CD 


73 


02 


CMP 


$0273 


E392 


90 


09 




BCC 


$E39D 


E394 


DO 


CD 




BNE 


$E363 


E396 


AD 


72 


02 


LDA 


$0272 


E399 


C5 


70 




CMP 


$70 


E39B 


90 


C6 




BCC 


$E363 


E39D 


A9 


01 




LDA 


#$01 


E39F 


20 


F6 


D4 


JSR 


$D4F6 


E3A2 


18 






CLC 




E3A3 


69 


01 




ADC 


#$01 


E3A5 


A6 


82 




LDX 


$82 


E3A7 


95 


CI 




STA 


$C1,X 


E3A9 


20 


IE 


Fl 


JSR 


$F11E 


E3AC 


20 


FD 


DD 


JSR 


SDDFD 


E3AF 


A5 


88 




LDA 


$88 


E3B1 


DO 


15 




BNE 


$E3C8 


E3B3 


20 


5E 


DE 


JSR 


$DE5E 


E3B6 


20 


IE 


CF 


JSR 


$CF1E 


E3B9 


20 


DO' 


D6 


JSR 


SD6D0 


E3BC 


20 


IE 


Fl 


JSR 


SF11E 


E3BF 


20 


FD 


DD 


JSR 


SDDFD 


E3C2 


20 


E2 


E2 


JSR 


SE2E2 


E3C5 


4C 


D4 


E3 


JMP 


SE3D4 


E3C8 


20 


IE 


CF 


JSR 


$CF1E 


E3CB 


20 


DO 


D6 


JSR 


$D6D0 


E3CE 


20 


E2 


E2 


JSR 


$E2E2 


E3D1 


20 


19 


DE 


JSR 


SDE19 


E3D4 


20 


5E 


DE 


JSR 


SDE5E 


E3D7 


20 


OC 


DE 


JSR 


SDEOC 


E3DA 


A5 


80 




LDA 


$80 



smaller than 6? 

52, "file too large' 
end pointer 

minus last end pointer 

minus 16 



side-sector number 

minus last side-sector number 

save 

erase sum for calculation 



calculate block # of rel-file 



block number of rel-file 

greater than free blocks on disk? 

52, 'file too large' 



52, 'file too large' 

get byte from buffer 

plus 1 

as write pointer 

find free block in BAM 

track and sector in buffer 

only one block needed? 

write block 

change buffer 

transmit param to disk controller 

find free block in BAM 

track and sector in buffer 

erase buffer 



change buffer 

transmit param to disk controller 

erase buffer 

zero byte and end ptr in buffer 

write block 

get track and sector 

track 
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E3DC 


48 






PHA 






E3DD 


A4 


81 




LDA 


S81 


and sector 


E3DF 


48 






PHA 




save 


E3E0 


20 


3E 


DE 


JSR 


SDE3E 


get track and sector from disk 


F3E3 


A5 


81 




LDA 


$81 


controller 


E3E5 


48 






PHA 






E3E6 


A5 


80 




LDA 


$80 


save track and sector 


E3E8 


48 






PHA 






E3E9 


20 


45 


DF 


JSR 


$DF45 


set buffer ptr for side-sector 


E3EC 


AA 






TAX 






E3ED 


DO 


0A 




BNE 


SE3F9 


pointer not zero? 


E3EF 


20 


4E 


E4 


JSR 


SE44E 


write side-sector 


E3F2 


A9 


10 




LDA 


#$10 




E3F4 


20 


E9 


DE 


JSR 


SDEE9 


buffer pointer to 16 


E3F7 


E6 


86 




INC 


$86 


increment side-sector number 


E3F9 


68 






PLA 






E3FA 


20 


8D 


DD 


JSR 


$DD8D 


track in side sector 


E3FD 


68 






PLA 






E3FE 


20 


8D 


DD 


JSR 


SDD8D 


sector in side-sector 


E401 


68 






PLA 






E402 


85 


81 




STA 


$81 


sector 


E404 


68 






PLA 






E405 


85 


80 




STA 


$80 


and get track back 


E407 


F0 


OF 




BEQ 


SE418 


no more blocks? 


E409 


A5 


86 




LDA 


$86 


side-sector number 


E40B 


C5 


D5 




CMP 


$D5 


changed? 


E40D 


DO 


A7 




BNE 


SE3B6 


yes 


E40F 


20 


45 


DF 


JSR 


SDF45 


set buffer ptr in side-sector 


E412 


C5 


D6 




CMP 


$D6 


end pointer 


E414 


90 


AO 




BCC 


$E3B6 


smaller? 


F416 


F0 


BO 




BEO 


$E3C8 


same 


E418 


20 


45 


DF 


JSR 


$DF45 


set buffer ptr in side-sector 


E41B 


48 






PHA 






E41C 


A9 


00 




LDA 


#$00 




E41E 


20 


DC 


DE 


JSR 


$DEDC 


buffer pointer to zero 


E421 


A9 


00 




LDA 


#$00 




E423 


A8 






TAY 






E424 


91 


94 




STA 


($94) ,Y 


zero as track number 


E426 


C8 






I NY 






£427 


68 






PLA 




end pointer 


E428 


38 






SEC 






E4 29 


E9 


01 




SBC 


#$01 


minus one 


E42B 


91 


94 




STA 


($94), Y 


as sector 


E42D 


20 


6C 


DE 


JSR 


$DE6C 


write block 


E430 


20 


99 


D5 


JSR 


$D599 


and verify 


E433 


20 


F4 


EE 


JSR 


$EEF4 


update BAM 


E436 


20 


OE 


CE 


JSR 


SCEOE 


update pointer for rel-file 


E439 


20 


IE 


CF 


JSR 


$CF1E 


cnange ouffer 


E43C 


20 


F8 


DE 


JSR 


SDEF8 


right side-sector? 


E43F 


70 


03 




BVS 


SE444 


no 


E441 


4C 


75 


E2 


JMP 


$E275 




E4 4 4 


A9 


80 




LDA 


#$80 




E446 


20 


97 


DD 


JSR 


$DD97 


set bit 7 


E449 


A9 


50 




LDA 


#$50 
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E44B 



20 C8 CI JSR $C1C8 



50, 'record not present' 



****************************** 



write side-sector and allocate 
new one 



E44E 


20 


IE 


Fl 


JSR 


SF11E 


find free block in BAM 


E451 


20 


IE 


CF 


JSR 


SCF1E 


change buffer 


E454 


20 


Fl 


DD 


JSR 


SDDF1 


write block 


E457 


20 


93 


DF 


JSR 


S DF9 3 


get buffer number 


E45A 


48 






PHA 






E45B 


20 


CI 


DE 


JSR 


SDEC1 


erase buffer 


E45E 


A6 


82 




LDX 


$82 


channel number 


E460 


B5 


CD 




LDA 


$CD,X 


buffer number 


E462 


A8 






TAY 






E46 3 


68 






PLA 






E464 


AA 






TAX 






E465 


A9 


10 




LDA 


#$10 


16 bytes of the side-sector 


E467 


20 


A5 


DE 


JSR 


$DEA5 


copy in buffer 


E46A 


A9 


00 




LDA 


#$00 




E46C 


20 


DC 


DE 


JSR 


$DEDC 


buffer ptr to 0, old side-sector 


E46F 


A0 


02 




LDY 


#$02 




E471 


Bl 


94 




LDA 


($94), Y 


side-sector number 


E473 


48 






PHA 






E474 


A9 


00 




LDA 


#$00 




E476 


20 


C8 


D4 


JSR 


$D4C8 


buffer ptr to 0, new side-sector 


E479 


68 






PLA 






E47A 


18 






CLC 






E47B 


69 


01 




ADC 


#$01 


increment side-sector number 


E47D 


91 


94 




STA 


($94), Y 


and in buffer 


E47F 


0A 






ASL 


A 


times 2 


E480 


69 


04 




ADC 


#$04 


plus 4 


E48 2 


85 


89 




STA 


$89 




E484 


A8 






TAY 






E485 


38 






SEC 






E486 


E9 


02 




SBC 


#$02 


minus 2 


E488 


85 


8A 




STA 


$8A 


same pointer to old side-sector 


E48A 


A5 


80 




LDA 


$80 


track 


E48C 


85 


87 




STA 


$87 




E48E 


91 


94 




STA 


($94), Y 


in buffer 


E490 


C8 






INY 






E491 


A5 


81 




LDA 


$81 


sector 


E493 


85 


88 




STA 


$88 




E495 


91 


94 




STA 


($94), Y 


in buffer 


E497 


A0 


00 




LDY 


#$00 




E499 


98 






TYA 






E49A 


91 


94 




STA 


($94) ,Y 


zero in buffer 


E49C 


C8 






INY 






E49D 


A9 


11 




LDA 


#$11 


17 


E49F 


91 


94 




STA 


($94) ,Y 


number of bytes in block 


E4A1 


A9 


10 




LDA 


#$10 


16 


E4A3 


20 


C8 


D4 


JSR 


$D4C8 


buffer pointer to 16 


E4A6 


20 


50 


DE 


JSR 


$DE50 


write block 


E4A9 


20 


99 


D5 


JSR 


$D599 


and verify 


E4AC 


A6 


82 




LDX 


$82 


channel number 


E4AE 


B5 


CD 




LDA 


$CD,X 


buffer number of the side-sector 


E4B0 


48 






PHA 
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E4B1 


20 


9E 


DF 


JSR 


SDF9E 


get buffer number 




E4B4 


A6 


82 




LDX 


$82 


channel number 




E4B6 


95 


CD 




STA 


$CD,X 


write in table 




E4B8 


68 






PLA 








E4B9 


AE 


57 


02 


LDX 


$0257 


channel number + 7 




E4BC 


95 


A7 




STA 


$A7,X 


in table 




E4BE 


A9 


00 




LDA 


#$00 






E4C0 


20 


C8 


D4 


JSR 


$D4C8 


buffer pointer to zero 




E4C3 


A0 


00 




LDY 


#$00 






E4C5 


A5 


80 




LDA 


$80 


track 




E4C7 


91 


94 




STA 


($94), Y 


in buffer 




E4C9 


C8 






INY 








E4CA 


A5 


81 




LDA 


$81 


sector 




E4CC 


91 


94 




STA 


($94), Y 


in buffer 




E4CE 


4C 


DE 


E4 


JMP 


$E4DE 






E4D1 


20 


93 


DF 


JSR 


SDF9 3 


get buffer number 




E4D4 


A6 


82 




LDX 


$82 


channel number 




E4D6 


20 


IB 


DF 


JSR 


SDF1B 


read block 




E4D9 


A9 


00 




LDA 


#$00 






E4DB 


20 


C8 


D4 


JSR 


SD4C8 


buffer pointer to zero 




EFDE 


C6 


8A 




DEC 


$8A 






E4E0 


C6 


8A 




DEC 


$8A 


counter for side-sector 


blocks 


E4E2 


A4 


89 




LDY 


$89 






E4E4 


A5 


87 




LDA 


$87 


track number 




E4E6 


91 


94 




STA 


($94), Y 


in buffer 




E4E8 


C8 






INY 








E4E9 


A5 


88 




LDA 


$88 


sector number 




E4EB 


91 


94 




STA 


($94) ,Y 


in buffer 




E4ED 


20 


5E 


DE 


JSR 


SDE5E 


write block 




E4F0 


20 


99 


D5 


JSR 


SD599 


and verify 




E4F3 


A4 


8A 




LDY 


$8A 


counter for side-sector 


blocks 


E4F5 


CO 


03 




CPY 


#$03 






E4F7 


BO 


D8 




BCS 


$E4D1 


greater than or equal to 3? 


E4F9 


4C 


IE 


CF 


JMP 


$CF1E 


change buffer 




****************************** 


table of error messages 




E4FC 


00 










00 




E4FD 


A0 4F CB 






' OK' 




E500 


20 21 22 


23 


24 27 


error numbers of 'read error' 


E506 


D2 45 41 


44 






'Read' 




E50A 


89 










pointer to 'error' 




E50B 


52 










52 




E50C 


83 










pointer to ' f ile ' 




E50D 


20 54 4F 4F 


20 AC 4A 52 47 


C5 ' too largE' 




E517 


50 










50 




E518 


8B 06 








pointer to 'record ' and 'not ' 


E51A 


20 50 52 


45 


53 45 4E D4 


' presenT' 




E522 


51 










51 




E523 


CF 56 45 


52 


46 4C 4F 57 ?0 


'Overflow in' 




E52E 


8B 










pointer to 'record' 




E52F 


25 28 








error numbers of 'write 


error' 


E531 


8A 89 








pointer to 'write' and 


error ' 


E533 


26 










26 




E534 


8A 










pointer to 'write' 
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E535 


20 


50 


52 


4F 


54 


45 


43 


54 


20 


4F CE ' protect ON' 


E540 


29 


















29 


E541 


88 


















pointer to 'disk' 


E542 


20 


49 


85 














• id' 


E545 


85 


















pointer to ' mismatch' 


E546 


30 


31 


32 


33 


34 










error numbers for 'syntax error' 


E54B 


D3 


59 


4E 


54 


41 


58 








' Syntax' 


E551 


89 


















pointer to ' error' 


E552 


60 


















60 


E553 


8A 


03 


84 














ptrs to 'write', 'file' & 'open' 


E556 


63 


















63 


E557 


83 


















pointer to 'file' 


E558 


20 


45 


58 


49 


53 


54 


D3 






' exists' 


E55F 


64 


















64 


E560 


83 


















pointer to 'file' 


E561 


20 


54 


59 


50 


45 










' type' 


E566 


85 


















pointer to 'mismatch' 


E567 


65 


















65 


E568 


CE 


4F 


20 


42 


4C 


4F 


43 


CB 




'No block' 


E570 


66 


67 
















'illegal track or sector' 


E572 


C9 


4C 


4C 


45 


47 


41 


4C 


20 




'Illegal ' 


E57A 


54 


52 


41 


43 


4B 


20 


4F 


52 




'track or' 


E582 


20 


53 


45 


43 


54 


4F 


D2 






' sectoR' 


E589 


61 


















61 


E58A 


83 


06 


84 














pointer to 'file', 'not' & 'open 


E58D 


39 


62 
















error nos . for 'file not found' 


E590 


83 


06 


87 














ptrs to 'file', 'not' & 'found' 


E593 


01 


















01 


E594 


83 


















pointer to 'file' 


E594 


53 


20 


53 


43 


52 


41 


54 


43 


48 


45 C4 's scratcheD' 


E59F 


70 


















70 


E5A0 


CE 


4F 


20 


43 


48 


41 


4E 


4E 


45 


CC 'No channeL' 


E5AA 


71 


















71 


E5AB 


C4 


49 


52 














'Dir' 


E5AE 


89 


















pointer to 'error' 


E5AF 


72 


















72 


E5B0 


88 


















pointer to 'disk' 


E5B1 


20 


46 


55 


4C 


CC 










' fulL' 


E5B6 


73 


















73 


E5B7 


[C3 


42 


4D 


20 


44 


4F 


53 


20 




'Cbm dos ' 


E5BFJ 


r?6 


32 


2E 


36 


20 


31 


35 


34 


Bl 


'v2.6 1541' 


E5C4 


74 


















74 


E5C5 


C4 


42 


49 


56 


45 










' Drive' 


E5CA 


06 


















pointer to 'not' 


E5CB 


20 


52 


45 


41 


44 


D9 








' ready' 


E5D5 


09 




















E5D6 


C5 


52 


52 


4F 


P2 










' ErroR' 


E5DB 


0A 




















E5DC 


D7 


52 


49 


54 


C5 










'WritE' 


E5E1 


03 




















E5E2 


C6 


49 


4C 


C5 












'FilE' 


E5E6 


04 




















E6E7 


CF 


50 


45 


CE 












'OpeN' 


E5EB 


05 




















E5EC 


CD 


49 


53 


4D 


41 


54 


43 


C8 




'MismatcH' 



205 



Anatomy of the 1541 Disk Drive 

E5F4 06 

E5F5 CE 4F D4 'NoT' 

E5F8 07 

E5F9 C6 4F 55 4E C4 • FounD' 

E5FE 08 

E5FF C4 49 53 CB 'DisK' 

E603 OB 

E604 D2 45 43 4F 52 C4 'RecorD' 

****************************** prepare error number and message 

E60A 48 PHA save error code 

E60B 86 F9 STX $ F9 drive number 

E60D 8A TXA 

E60E 0A ASI, A times 2 

E60F AA TAX as pointer 

E610 B5 06 LDA $06 ,X 

E612 85 80 STA $80 get track 

E614 B5 07 LDA $07, X 

E616 85 81 STA $81 and sector number 

E618 68 PLA get error code back 

E619 29 OF AND #$0F isolate bits 0-3 

E61B F0 08 BE0 $E625 zero, then 24, 'read error' 

E61D C9 OF CMP #$0F 15? 

E61F DO 06 BNE $E627 

E621 A9 74 LDA #$74 

E623 DO 08 BNE $E62D 74, 'drive not ready" 

E6 25 A9 06 LDA #$06 6 

E627 09 20 ORA #$20 add $20 

E629 AA TAX 

E6 2A CA DEX 

E62B CA DEX subtract two 

E6 2C 8A TXA 

E62D 48 PHA save error number 

E62E AD 2A 02 LDA $022A number of the disk command 

E631 C9 00 CMP #$00 OPEN or VALIDATE? 

E633 DO OF BNE $E644 no 

E635 A9 FF LDA #$FF 

E637 8D 2A 02 STA $022A 

E63A 68 PLA get error number back 

E63B 20 C7 E6 JSR $E6C7 generate error message 

E63E 20 42 DO JSR $D042 load BAM 

E641 4C 48 E6 JMP $E648 set error message 

E644 68 PLA 

E645 20 C7 E6 JSR $E6C7 set error message 

E648 20 BD CI JSR SC1BD erase input buffer 

E64B A9 00 LDA #S00 

E64D 8D F9 02 STA $02F9 erase error flag 

E650 20 2C CI JSR $C12C turn LED off 

E653 20 DA D4 JSR $D4DA close channels 17 and 18 

E656 A9 00 LDA #$00 

E658 85 A3 STA $A3 input buffer pointer to zero 

E65A A2 45 LDX #$45 

E65C 9A TXS initialize stack pointer 

E65D A5 84 LDA $84 secondary address 
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E6 5F 


29 


OF 




AND 


#$0F 




E661 


85 


83 




STA 


$83 




E663 


C9 


OF 




CMP 


#$0F 


15? 


E665 


FO 


31 




BEO 


$E698 


yes, command channel 


E667 


78 






SEI 






E668 


A5 


79 




LDA 


$79 


LISTEN active? 


E66A 


DO 


1C 




BNE 


$E688 


yes 


E66C 


A5 


7A 




LDA 


$7A 


TALK active? 


E66E 


DO 


10 




BNE 


$E680 


yes 


E670 


A6 


83 




LDX 


$83 


channel number 


E672 


BD 


2B 


02 


LDA 


$022B,X 


open channel to this second, addr 


E675 


C9 


FF 




CMP 


#$FF 




E677 


FO 


IF 




BEO 


SE698 


no 


E679 


29 


OF 




AND 


#$0F 




E67B 


85 


82 




STA 


$82 


channel number 


E67D 


4C 


8E 


E6 


JMP 


$E68E 





****************************** 

E680 20 EB DO JSR $D0EB 
E683 20 4E EA JSR $EA4E 
E686 DO 06 BNE $E68E 

****************************** 



E688 



20 07 Dl JSR SD107 



E68B 


20 


4E 


EA 


JSR 


$EA4E 


E68E 


20 


25 


Dl 


JSR 


$D125 


E691 


C9 


04 




CMP 


#$04 


E693 


B0 


03 




BCS 


$E698 


E695 


20 


27 


D2 


JSR 


SD227 


E698 


4C 


E7 


EB 


JMP 


$EBE7 


***************************** 


E69B 


AA 






TAX 




E69C 


A9 


00 




LDA 


#$00 


E69E 


F8 






SED 




E69F 


E0 


00 




CPX 


#$00 


F6A1 


FO 


07 




BEO 


$E6AA 


E6A3 


18 






CLC 




E6A4 


69 


01 




ADC 


#$01 


A6A6 


CA 






DEX 




E6A7 


4C 


9F 


E6 


JMP 


$E69F 


E6AA 


D8 






CLD 




****** 


******* 


!**************** 


E6AB 


AA 






TAX 




E6AC 


4A 






LSR 


A 


E6AD 


4A 






LSR 


A 


E6AE 


4A 






LSR 


A 


E6AF 


4A 






LSR 


A 


E6B0 


20 


B4 


E6 


JSR 


$E6B4 


E6B3 


8A 






TXA 




E6B4 


29 


OF 




AND 


#$0F 


E6B6 


09 


30 




ORA 


#$30 


E6B8 


91 


A5 




STA 


($A5) ,Y 


E6BA 


C8 






INY 





TALK 

open channel for reading 

accept byte 



LISTEN 

open channel for writing 

accept byte 

verify file type 

file type REL? 

yes 

close channel 



convert hex to decimal (2 bytes) 



convert hex to BCD 



divide BCD number inco two bytes 
shift hi-mbble down 

convert to ASCII 

erase top 4 bits 

add ' 0" 

write in buffer 

increment buffer pointer 
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E6BB 



60 



RTS 



****************************** 



E6BC 
E6BF 
E6C1 
E6C3 
E6C5 



20 23 CI 
A9 00 
A0 00 
84 80 
84 81 



JSR SC123 

LDA #$00 
LDY #500 
STY S80 
STY $81 



****************************** 



E6C7 
E6C9 
E6C8 
E6CD 
E6CF 
E6D1 
E6D4 
E6D6 
ED68 
E6D9 
E6DC 
E6DF 
E6E0 
E6E3 
E6E5 
E6E7 
E6F8 
E6EA 
E6ED 
E6EF 
E6F1 
E6F2 
E6F4 
E6F7 
E6F8 
F6F9 
E6FA 
E6FC 
E6FF 
E701 
E7 03 
E705 



A0 00 

A2 D5 

86 A5 

A2 02 

86 A6 

20 AB E6 

A9 2C 

9A A5 

C8 

AD D5 02 

8D 43 02 

8A 

20 06 E7 

A9 2C 

91 A5 

C8 

A5 80 

20 9B E6 

A9 2C 

91 A5 

C8 

A5 81 

20 9B E6 

88 

98 

18 

69 D5 

8D 49 02 

E6 A5 

A9 88 

8 5 F7 

60 



LDY 
LDX 
STX 
LDX 
STX 
JSR 
LDA 
STA 
INY 
LDA 
STA 
TXA 
JSR 
LDA 
STA 
INY 
LDA 
JSR 
LDA 
STA 
INY 
LDA 
JSR 
DEY 
TYA 
CLC 
ADC 
STA 
INC 
LDA 
STA 
RTS 



#$00 

#$D5 

$A5 

#$02 

$A6 

$E6AB 

#$2C 

($A5) ,Y 

S02D5 
$0243 

SE706 
#$2C 
($A5) ,Y 

$80 
SE69B 
#$2C 
($A5) ,Y 

$81 
$E69B 



#$D5 

$0249 

SA5 

#S88 

$F7 



write 'ok' in buffer 
erase error flag 
error number 

track 
sector 

error message in buffer 
buffer pointer 

pointer $A5/$A6 TO $2D5 



error # to ASCII and in buffer 

1 » ' comma 

write in buffer 

increment buffer pointer 

first digit of the disk status 

in output register 

error number in accumulator 

error message in buffer 

1 , ' comma 

write in buffer 

and increment buffer pointer 

track number 

to ASCII and in buffer 

■ , ■ comma 

write in buffer 

increment buffer pointer 

sector 

convert to ASCII and in buffer 



end pointer 
set REAP flag 



****************************** 

E706 
E707 
E709 
E70A 
E70C 



E70D 
F70F 
E713 
L715 
E716 
E718 



AA 

A5 86 
48 

A5 87 
48 
A9 FC 
85 86 
85 87 
8A 

A2 00 
CI 86 



TAX 

LDA $86 

PHA 

LDA $87 

PHA 

LDA #$FC 

STA #$E4 

STA $87 

TXA 

LDX #$00 

CMP ($86, X) 



write error message to Duffer 
error code to x 

preserve pointer $86/$87 



start of the error messages 
error nuirber in accumulator 
compare with error no in table 
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E71A FO 21 BEQ $E73D 

E71C 48 PHA 

E71D 20 75 E7 JSR $E775 bit 7 into carry and erase 

E720 90 05 BCC $E727 not set? 

E722 20 75 E7 JSR $E775 bit 7 into carry 

E725 90 FB BCC SE722 wait for character with bit 7 set 

E727 A5 87 LDA $87 

E729 C9 E6 CMP *$E6 

E72B 90 08 BCC $E735 $E60A, check to end of table 

E72D DO 0A BNE SE739 

E72F A0 0A LDA #$0A 

E731 C5 86 CMP $86 

E733 90 04 BCC $E739 

E735 68 PLA 

E736 4C 18 E7 JMP $E718 no, continue 

E739 68 PLA 

E73A 4C 4D E7 JMP $E74D done 

E73D 20 67 E7 JSR SE767 get a character, bit 7 in carry 

E740 90 FB BCC $E73D wait for character with bit 7 set 

E742 20 54 E7 JSR SE754 and write in buffer 

E745 20 67 E7 JST $E767 get next character 

E748 90 F8 BCC $E742 wait for character with bit 7 set 

E74A 20 54 E7 JSR SE754 put character in buffer 

E74D 68 PLA 

E74E 85 87 STA $87 

E750 68 PLA gee pointer $86/$87 back 

E751 85 86 STA $86 

E753 60 RTS 



******xxxxx**x*xxxxx*xxxxxxxxx 



get character and in buffer 



E754 C9 20 CMP #$20 ' ' blank 

E756 B0 0B BCS $E763 greater, then write in buffer 

E7 58 AA TAX save code 

E759 A9 20 LDA #$20 blank 

E75B 91 A5 STA ($A5),Y write in buffer 

E75D C8 INY increment buffer pointer 

E75E 8A TXA code in accumulator 

E75F 20 06 E7 JSR $E706 output previous text 

E762 60 RTS 

E763 91 A5 STA ($A5),Y write character in buffer 

E765 C8 INY and increment pointer 

E766 60 RTS 

********** *************** ***** get a char of the error message 

E767 E6 86 INC $86 

E769 DO 02 BNE $E76D increment pointer 

E76B E6 87 INC $87 

E76D Al 86 LDA ($86,X) get character 

E76F 0A ASL A bit 7 into carry 

E770 Al 86 LDA (S86,X) get character 

E772 29 7F AND #$7F erase bit 7 

E774 60 PTS 



****************************** 



increment pointer 
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E775 


20 


6D 


E7 


JSR 


$E76D 


E778 


E6 


86 




INC 


$86 


E77A 


DO 


02 




BNE 


$E77E 


E7 7C 


E6 


87 




INC 


$87 


E77E 


60 






RTS 





****************************** 



E77F 



60 



RTS 



****************************** 



E7 80 


AD 


00 


18 


LDA 


$1800 


E783 


AA 






TAX 




E784 


29 


04 




AND 


#$04 


E786 


F0 


F7 




BEQ 


$E77F 


E788 


8A 






TXA 




E789 


29 


01 




AND 


#$01 


E78B 


F0 


F2 




BEO 


$E77F 


E78D 


58 






CLI 




E78E 


AD 


00 


18 


LDA 


$1800 


E791 


29 


05 




AND 


#$05 


E793 


F0 


F9 




BNE 


$E78E 


E795 


EE 


78 


02 


INC 


$0278 


E798 


EE 


74 


02 


INC 


$0274 


E79B 


A9 


2A 




LDA 


#$2A 


E79D 


8D 


00 


02 


STA 


$0200 


E7A0 


4C 


A8 


E7 


JMP 


$E7A8 


***************************, 


E7A3 


A9 


8D 




LDA 


#$8D 


E7A5 


20 


68 


C2 


JSR 


$C268 


E7A8 


20 


58 


F2 


JSR 


$F258 


E7AB 


AD 


78 


02 


LDA 


$0278 


E7AE 


48 






PHA 




E7AF 


A9 


01 




LDA 


#$01 


E7B1 


8D 


78 


02 


STA 


$0278 


E7B4 


A9 


FF 




LDA 


#$FF 


E7B6 


85 


86 




STA 


$86 


E7B8 


20 


4F 


C4 


JSR 


$C44F 


E7BB 


AD 


80 


02 


LDA 


$0280 


E7bE 


DO 


05 




BNE 


SE7C5 


E7C0 


A9 


39 




LDA 


#$39 


E7C2 


20 


C8 


CI 


JSR 


SC1C8 


E7C5 


68 






PLA 




E7C6 


8D 


78 


02 


STA 


$0278 


E7C9 


AD 


80 


02 


LDA 


$0280 


E7CC 


85 


80 




STA 


$80 


E7CE 


AD 


85 


02 


LDA 


$0285 


E7D1 


85 


81 




STA 


$81 


E7D3 


A9 


03 




LDA 


#$03 


E7D5 


20 


77 


D4 


JSR 


$D477 


E7D8 


A9 


00 




LDA 


#$00 


E7DA 


85 


87 




STA 


$87 


E^DC 


20 


39 


E8 


JSP 


$E839 


E7DF 


85 


88 




STA 


$88 


E7E1 


20 


4B 


E8 


JSR 


$E84B 



bit 7 into carry 
increment pointer 



check for AUTO-start 
read IEEE port 

isolate 'CLOCK IN' bit 
not set, then done 

isolate 'DATA IN' bit 
not set, then done 

load IEEE port 

test 'DATA IN' and 'CLOCK IN' 

wait until both set 

file name 

character in the input line 

'*' as filename 

write in Duffer 



'&' 



command 



check command line to end 

(RTS) 

number of file names 

save 

file name 



find file 

found? 

39, 'file not found' 

get number of file names back 

track 

and sector 

file type 'USR' 

buffer allocated, read 1st block 

erase checksum 
get byte from file 
save as start address lo 
form checksum 
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E7E4 


20 


39 


E8 


JSR 


$E839 


E7E7 


85 


89 




STA 


$89 


E7E9 


20 


4B 


E8 


JSR 


$E84B 


E7EC 


A5 


86 




LDA 


$86 


E7EE 


F0 


OA 




BEO 


$E7FA 


E7F0 


A5 


88 




LDA 


$88 


E7F2 


48 






PHA 




E7F3 


A5 


89 




LDA 


$89 


E7F5 


48 






PHA 




E7F6 


A9 


00 




LDA 


#$00 


E7F8 


85 


86 




STA 


$86 


E7FA 


20 


39 


E8 


JSR 


$E839 


E7FD 


85 


8A 




STA 


S8A 


E7FF 


20 


4B 


E8 


JSR 


$E84B 


E802 


20 


39 


E8 


JSR 


$E839 


E805 


A0 


00 




LDY 


#$00 


E807 


91 


88 




STA 


($88), 


E809 


20 


4B 


E8 


JSR 


$E84B 


E80C 


A5 


88 




LDA 


$88 


E80E 


18 






CLC 




E80F 


69 


01 




ADC 


#$01 


E811 


85 


88 




STA 


$88 


E813 


90 


02 




BCC 


$E817 


E815 


E6 


89 




INC 


$89 


E817 


C6 


8A 




DEC 


$8A 


E819 


DO 


E7 




BNE 


$E802 


E81B 


20 


35 


CA 


JSR 


$CA35 


E81E 


A5 


85 




LDA 


$85 


E820 


C5 


87 




CMP 


$87 


E822 


F0 


08 




BEO 


$E8 2C 


E824 


20 


3E 


DE 


JSR 


$DE3E 


E827 


A9 


50 




LDA 


#S50 


E829 


20 


45 


E6 


JSR 


$E645 


E8 2C 


A5 


F8 




LDA 


$F8 


E82E 


DO 


A8 




BNE 


$E7D8 


E830 


68 






PLA 




E831 


85 


89 




STA 


$89 


E833 


68 






PLA 




E834 


85 


88 




STA 


$88 


E836 


6C 


88 


00 


J MP 


($0081 


E839 


20 


35 


CA 


JSR 


$CA35 


E8 3C 


A5 


F8 




LDA 


$F8 


E83E 


DO 


08 




BNE 


$E848 


E840 


20 


3E 


DE 


JSR 


$DE3E 


E843 


A9 


51 




LDA 


#$51 


E84 5 


20 


45 


E6 


JSR 


$E645 


E8 48 


A5 


85 




LDA 


$85 


E84A 


60 






RTS 




*************************** 


E84B 


A8 






CLC 




E84C 


65 


87 




ADC 


$87 


E84E 


69 


00 




ADC 


#$00 


E850 


85 


87 




STA 


$87 


E852 


60 






RTS 





get byte from file 
as start address hi 
form checksum 



save program start address 



get byte from file 
save as counter 
form checksum 
get byte from file 

save as program bytes 
form checksum 



increment $88/$89 



decrement pointer 

get next byte 

data byte 

equal to checksum? 

yes 

transmit param to disk controller 

50, 'record not present' 

end? 

no, next data block 



get program start address back 

and execute program 

get byte from file 

end? 

no 

transmit param to disK controller 

51, 'overflow in record' 
data byte 



generate checksum 
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****************************** 

E853 AD 01 18 LDA $1801 

E856 A9 01 LDA #$01 

E858 85 7C STA $7C 

E85A 6 RTS 



IRQ routine for serial bus 
read port A, erase IRQ flag 

set flag for 'ATN received' 



*********************XXXKKK*** 



E8 5B 
E85C 
E85E 
E860 
E8 6 2 
E8 64 
E866 
E867 
E869 
E86B 
E86D 
E870 
E873 
E876 
E878 
E87B 
E87E 
E880 
E882 
E8 8 4 
E887 
E889 
E88B 
E88D 
E88F 
E891 
E893 
E895 
E897 
E899 
E89B 
E89D 
E89F 
E8A1 
E8A3 
E8A5 
E8A7 
E8A9 
E8AB 
E8AD 
E8AF 
E8B1 
E8B3 
E8B5 
E8B7 
E8B8 
E8BA 



78 

A9 00 

85 7C 

85 79 

85 7A 

A2 45 
9A 

A9 80 

85 F8 

85 7D 

20 B7 E9 

20 A5 E9 

AD 00 18 

09 10 

8D 00 18 

AD 00 18 

10 57 
29 04 
DO F7 

20 C9 E9 

C9 3F 

DO 06 

A9 00 

85 79 

F0 71 

C9 5F 

DO 06 

A9 00 

85 7A 

FO 67 

C5 78 

DO 0A 

A9 01 

85 7A 

A9 00 

85 79 

FO 29 

C5 77 

DO OA 

A9 01 

85 79 

A9 00 

85 7A 

FO IB 
AA 

29 60 

C9 60 



SEI 
LDA 
STA 
STA 
STA 
LDX 
TXS 
LDA 
STA 
STA 
JSR 
JSR 
LDA 
ORA 
STA 
LDA 
BPL 
AND 
BNE 
JSR 
CMP 
BNE 
LDA 
STA 
BEO 
CMP 
BNE 
LDA 
STA 
BEO 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
BEO 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
BEO 
TAX 
AND 
CMP 



#$00 

$7C 

$79 

$7A 

#$45 

#$80 

$F8 

$7D 

$E9B7 

$E9A5 

$1800 

#$10 

$1800 

$1800 

$E8D7 

#$04 

SE87B 

$E9C9 

#$3F 

$E891 

#$00 

$79 

$E902 

#S5F 

$E89B 

#$00 

$7A 

$E902 

$78 

$E8A9 

#$01 

$7A 

#$00 

$79 

$E8D2 

$77 

$E8B7 

#$01 

$79 

#$00 

$7A 

$E8D2 

#$60 
#S60 



servicing the serial bus 



erase flag for 'ATN received' 
erase flag for LISTEN 
erase flag for TALK 

initialize stack pointer 

erase end flag 
erase EOI flag 
CLOCK OUT lo 
DATA OUT, bit '0' , hi 

switch data lines to input 

read IEEE port 

EOI? 

CLOCK IN? 

no 

get byte from bus 

unlisten? 

no 

reset flag for LISTEN 

untalk? 
no 

reset flag for TALK 

TALK address? 
no 

set flag for TALK 

reset flag for LISTEN 

LISTEN address? 
no 

set flag for LISTEN 

reset flag for TALK 



set bit 5 and 6 
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E8BC 


DO 


3F 




BNE 


$E8FD 


no 


E8BE 


8A 






TXA 






E8BF 


85 


84 




STA 


$84 


byte is secondary address 


E8C1 


29 


OF 




AND 


#S0F 




E8C3 


85 


83 




STA 


$83 


channel number 


E8C5 


A5 


84 




LDA 


$84 




E8C7 


29 


FO 




AND 


#$F0 




E8C9 


C9 


EO 




CMP 


#$E0 


CLOSE? 


E8CB 


DO 


35 




BNE 


$E902 




E8CD 


58 






CLI 






E8CE 


20 


CO 


DA 


JSR 


$DAC0 


CLOSE routine 


E8D1 


78 






SEI 






E8D2 


2C 


00 


18 


BIT 


$1800 




E8D5 


30 


AD 




BMI 


SE884 




E8D7 


A9 


00 




LDA 


#$00 




E8D9 


85 


7D 




STA 


$7D 


set EOI 


E8DB 


AD 


00 


18 


LDA 


$1800 


IEEE port 


E8DE 


29 


EF 




AND 


#$EF 


switch data lines to output 


E8E0 


8D 


00 


18 


STA 


$1800 




E8E3 


A5 


79 




LDA 


$79 


LISTEN active? 


E8E5 


F0 


06 




BEO 


SE8ED 


no 


E8E7 


20 


2E 


EA 


JSR 


$EA2E 


receive data 


E8EA 


4C 


E7 


EB 


JMP 


$EBE7 


to delay loop 


E8ED 


A5 


7A 




LDA 


$7A 


TALK active? 


E8EF 


F0 


09 




BEO 


$E8EA 


no 


E8F1 


20 


9C 


E9 


JSR 


SE99C 


DATA OUT, bit ' 1' , lo 


E8F4 


20 


AE 


E9 


JSR 


$E9AE 


CLOCK OUT hi 


E8F7 


20 


09 


E9 


JSR 


$E909 


send data 


E8FA 


4C 


4E 


EA 


JMP 


$EA4E 


to delay loop 


E8FD 


A9 


10 




LDA 


#$10 


either TALK or LISTEN, ignori 


E8FF 


8D 


00 


18 


STA 


$1800 


switch data lines to input 


E902 


2C 


00 


18 


BIT 


$1800 




E905 


10 


DO 




BPL 


$E8D7 




E907 


30 


F9 




BMI 


$E902 


wait for handshake 


A***************************** 


send data 


E909 


78 






SEI 






E90A 


20 


EB 


DO 


JSR 


SDOEB 


open channel for read 


E90D 


B0 


06 




BCS 


$E915 


channel active 


E90F 


A6 


82 




LDX 


$82 


channel number 


E911 


B5 


F2 




LDA 


$F2,X 


set READ flag? 


E913 


30 


01 




BMI 


$E916 


yes 


E915 


60 






RTS 






E916 


20 


59 


FA 


JSR 


$EA59 


check EOI 


E919 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 


E91C 


29 


01 




AND 


#$01 


isolate data bit 


E91E 


08 






PHP 




and save 


E91F 


20 


B7 


E9 


JSR 


$E9B7 


CLOCK OUT lo 


E9 22 


28 






PLP 






E923 


F0 


12 




BEO 


$E937 




E925 


20 


59 


EA 


JSR 


$EA59 


cnecK EOI 


E928 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 


E9 2B 


29 


01 




AND 


#$01 


isolate data bit 


E92D 


DO 


F6 




BNE 


$E925 
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E92F 


A6 


82 




LDX 


$82 


E931 


B5 


F2 




LDA 


$F2,X 


E933 


29 


08 




AND 


#$08 


E935 


DO 


14 




BNE 


$E94B 


E9 37 


20 


59 


EA 


JSR 


$EA59 


E93A 


20 


CO 


E9 


JSB 


$E9C0 


E93D 


29 


01 




AND 


#$01 


E93F 


DO 


F6 




BNE 


$E937 


E941 


20 


59 


EA 


JSR 


$EA59 


E944 


20 


CO 


E9 


JSR 


SE9C0 


E9 47 


29 


01 




AND 


#$01 


E949 


F0 


F6 




BEQ 


$E941 


E8 4B 


20 


AE 


E9 


JSR 


$E9AE 


E9 4E 


20 


59 


EA 


JSR 


$EA59 


E951 


20 


CO 


E9 


JSR 


$E9C0 


E954 


29 


01 




AND 


#$01 


E9 56 


DO 


F3 




BNE 


$E94B 


E958 


A9 


08 




LDA 


#$08 


E95A 


85 


98 




STA 


$98 


E95C 


20 


CO 


E9 


JSR 


$E9C0 


E95F 


29 


01 




AND 


#$01 


E961 


DO 


36 




BNE 


$E999 


E963 


A6 


82 




LDX 


$82 


E965 


BD 


3E 


02 


LDA 


$023E,X 


E9 68 


6A 






ROR 


A 


E969 


9D 


3E 


02 


STA 


$023E,X 


E96C 


BO 


05 




BCS 


$E973 


E96E 


20 


AS 


E9 


JSR 


$E9A5 


E971 


DO 


03 




BNE 


$E976 


E973 


20 


9C 


E9 


JSR 


$E99C 


E976 


20 


B7 


E9 


JSR 


$E9B7 


E979 


A5 


23 




LDA 


$23 


E97B 


DO 


03 




BNE 


$E980 


E97D 


20 


F3 


FE 


JSR 


$FEF3 


E980 


20 


FB 


FE 


JSR 


$FEFB 


E983 


C6 


98 




DEC 


S98 


E985 


DO 


D5 




BNE 


$E95C 


E987 


20 


59 


EA 


JSR 


$EA59 


E9 8A 


20 


CO 


E9 


JSR 


$E9C0 


E98D 


29 


01 




AND 


#S01 


E98F 


FO 


F6 




BEQ 


$E987 


E991 


58 






CLI 




E9 9 2 


20 


AA 


D3 


JSR 


$D3AA 


E995 


78 






SEI 




E996 


4C 


OF 


E9 


JMP 


$E90F 



E999 



4C 4E EA JMP SEA4E 



****************************** 



channel number 



check EOI 
read IEEE port 
isolate data bit 

check EOI 
read IEEE port 
isolate data bit 

CLOCK OUT hi 
checK EOI 
read IEEE port 
isolate data bit 

counter to 8 Dits for serial 
transmission 
read IEEE port 
isolate data bit 



lowest bit in carry 

set bit 

DATA OUT, output bit '0' 

absolute jump 

DATA OUT, output bit ' 1" 

set CLOCK OUT 



delay for serial bus 

set DATA OUT and CLOCK OUT 

all bits output? 

no 

check EOI 

read IEEE port 

isolate data bit 



get next data byte 
and output 
to delay loop 
DATA OUT lo 



E99C AD 00 18 


LDA $1800 




E99F 29 FD 


AND #$FD 


output bit 


E9A1 8D 00 18 


STA $1800 




E9A4 60 


RTS 




****************************** 


DATA OUT hi 
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E9A5 AD 00 18 LDA $1800 

E9A8 09 02 ORA #$02 

E9AA 8D 00 18 STA $18 00 

E9AD 60 RTS 

****************************** 

E9AE AD 00 18 LDA $1800 

E9B1 09 08 ORA #$08 

E9B3 8D 00 18 STA $1800 

E9B6 60 RTS 

****************************** 

E9B7 AD 00 18 LDA $1800 

E9BA 29 F7 AND f$F7 

E9BC 8D 00 18 STA $1800 

E9BF 60 RTS 

****************************** 
E9C0 AD 00 18 LDA $1800 
E9C3 CD 00 18 CMP $1800 
E9C6 DO F8 BNE $E9C0 
E9C8 60 RTS 

****************************** 



output bit '0' 

CLOCK OUT hi 
set bit 3 

CLOCK OUT lo 
erase bit 3 



read IEEE port 

read port 

wait for constants 



E9C9 


A9 


08 




LDA 


#$08 






E9CB 


85 


98 




STA 


$98 


bit counte 


ir for serial output 


E9CD 


20 


59 


EA 


JSR 


SEA59 


check EOI 




E9D0 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE 


port 


E9D3 


29 


04 




AND 


#$04 


CLOCK IN? 




E9D5 


DO 


F6 




BNE 


$E9CD 


no, wait 




E9D7 


20 


9C 


E9 


JSR 


$E99C 


DATA OUT, 


bit '1' 


E9DA 


A9 


01 




LDA 


#$01 






E9DC 


8D 


05 


18 


STA 


$1805 


set timer 




E9DF 


20 


59 


EA 


JSR 


$EA59 


check EOI 




E9E2 


AD 


0D 


18 


LDA 


$180D 






E9E5 


29 


40 




AND 


#$40 


timer run 


down? 


E9E7 


DO 


09 




BNE 


$E9F2 


yes, EOI 




E9E9 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE 


port 


E9EC 


29 


04 




AND 


#$04 


CLOCK IN? 




E9EE 


F0 


EF 




BEO 


$E9DF 


no, wait 




E9F0 


DO 


19 




BNE 


$EA0B 






E9F2 


20 


A5 


E9 


JSR 


$E9A5 


DATA OUT bit '0' hi 


E9F5 


A2 


OA 




LDY 


#$0A 


10 




E9F7 


CA 






DEX 




delay loop 


>, approx 50 micro si 


E9F8 


DO 


FD 




BNE 


$E9F7 






E9FA 


20 


9C 


E9 


JSR 


$E99C 


DATA OUT, 


bit "l", lo 


E9FD 


20 


59 


EA 


JSR 


$EA59 


check EOI 




EA00 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE 




EA03 


29 


04 




AND 


#$04 


CLOCK IN? 




EA05 


F0 


F6 




BEO 


$E9FD 


no, wait 




EA07 


A9 


00 




LDA 


#$00 






EA09 


85 


F8 




STA 


$F8 


sec EOI fl 


ag 


EA0B 


AD 


00 


18 


LDA 


$1800 


IEEE port 




EA0E 


49 


01 




EOR 


#$01 


invert dat 


a byte 


EA10 


4A 






LSR 


A 
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EA11 


29 


02 




AND 


#$02 




EA13 


DO 


F6 




BNE 


$EA0B 


CLOCK IN? 


EA15 


EA 






NOP 






EA16 


EA 






NOP 






EA17 


EA 






NOP 






EA18 


66 


85 




ROR 


$85 


prepare next bit 


EA1A 


20 


59 


EA 


JSR 


$EA59 


check EOI 


EA1D 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 


EA20 


29 


04 




AND 


#$04 


CLOCK IN? 


EA2 2 


F0 


F6 




BEQ 


$EA1A 


no 


EA24 


C6 


98 




DEC 


$98 


decrement bit counter 


EA26 


DO 


E3 




BNE 


$EA0B 


all bits output? 


EA28 


20 


A5 


E9 


JSR 


$E9A5 


DATA OUT, bit '0' , hi 


EA2B 


A5 


85 




LDA 


$85 


load data byte again 


EA2D 


60 






RTS 






****************************** 


accept data from seri 


EA2E 


78 






SEI 






EA2F 


20 


07 


Dl 


JSR 


$D107 


open channel for writ 


EA32 


B0 


05 




BCS 


$EA39 


channel not active? 


EA34 


B5 


F2 




LDA 


$F2,X 


WRITE flag 


EA36 


6A 






ROR 


A 




EA37 


BO 


OB 




BCS 


$EA44 


not set? 


EA39 


A5 


84 




LDA 


$84 


secondary address 


EA3B 


29 


FO 




AND 


t$F0 




EA3D 


C9 


FO 




CMP 


#$F0 


OPEN command? 


EA3F 


FO 


03 




BEQ 


$EA44 


yes 


EA41 


4C 


4E 


EA 


JMP 


$EA4E 


to wait loop 



EA44 20 C9 E9 JSR $E9C9 

EA47 58 CLI 

EA48 20 B7 CF JSR $CFB7 

EA4B 4C 2E EA JMP $EA2E 

EA4E A9 00 LDA #$00 

EA50 8D 00 18 STA $1800 

EA53 4C E7 EB JMP $EBE7 



get data byte from bus 

and write in buffer 
to loop beginning 



reset IEEE port 
to wait loop 



EA56 


4C 5B E8 


JMP $EB58 


to serial bus 


****************************** 




EA59 


A5 7D 


LDA $7D 


EOI received? 


EA5B 


FO 06 


BEO $EA63 


yes 


EA5D 


AD 00 18 


LDA $1800 


IEEE port 


EA60 


10 09 


BPL $EA6B 





EA62 



60 



RTS 



EA63 AD 00 18 LDA $1800 
EA66 10 FA BPL $EA62 
EA68 4C D7 E8 JMP $E8D7 

****************************** 



EA6E 
EA70 



A2 00 
2C 



LDX #$00 
.BYTE S2C 



IEEE port 

set EOI, serve serial bus 

blink LED for hardware defects 
blink once, zero page 
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EA71 
EA73 
EA74 
EA7 5 
EA77 
EA7A 
EA7D 
EA7E 
EA7F 
EA81 
, EA83 
EA84 
EA86 
EA89 
EA8B 
EA8E 
EA8F 
EA90 
EA92 
EA94 
EA95 
EA97 
EA98 
EA9A 
EA9C 
EA9E 



A5 6F 

9A 

BA 

A9 08 

0D 00 1C 

4C EA FE 

98 

18 

69 01 

DO FC 

88 

DO F8 

AD 00 1C 

29 F7 

8D 00 

98 

18 

69 01 

DO FC 

88 

DO F8 

CA 

10 DB 

EO FC 

DO FO 

FO D4 



1C 



LDX 
TXS 
TSX 
LDA 
ORA 
JMP 
TYA 
CLC 
ADC 
BNE 
DEY 
BNE 
LDA 
AND 
STA 
TYA 
CLC 
ADC 
BNE 
DEY 
BNE 
DEX 
BPL 
CPX 
BNE 
BEO 



$6F 



#$08 

S1C00 

SFEEA 



#$01 
$EA7F 

$EA7E 
$1C00 
#$F7 
$1C00 



#$01 
$EA90 

SEA8F 

SEA75 
#$FC 
$EA8E 
$EA7 4 



blink X+l times for RAM/ROM err 

select LED bit in the port 
turn LED on, back to $EA7D 



turn LED off 



delay loop 



wait for delay 
turn LED on again 



****************************** RESET routine 



EAA0 
EAA1 
EAA2 
EAA4 
EAA7 
EAA8 
EAAA 
EAAC 
EAAD 
EAAF 
EAB0 
EAB2 
EAB3 
EAB5 
EAB7 
EAB9 
EABA 
EABC 
EABE 
EAC0 
EAC2 
EAC4 
EAC6 
EAC7 
EAC9 
EACB 
EACD 



78 

D8 

A2 FF 

8E 03 18 

E8 

A0 00 

A2 00 

8A 

95 00 

E8 

DO FA 

8A 

D5 00 

DO B7 

F6 00 

C8 

DO FB 

D5 00 

DO AE 

94 00 

B5 00 

DO A8 

E8 

DO E9 

E6 6F 

86 76 

A9 00 



SEI 
CLD 
LDX 
STX 
I NX 
LDY 
LDX 
TXA 
STA 
I NX 
BNE 
TXA 
CMP 
BNE 
INC 
I NY 
BNE 
CMP 
BNE 
STY 
LDA 
BNE 
I NX 
BNE 
INC 
STX 
LDA 



#$FF 
$1803 

#$00 
#$00 

$00, X 

$EAAC 

$00, X 
$EA6E 
$00, X 

$EAB7 
$00, X 
$EA6E 
$00, X 
$00, X 
SEA6E 

$EAB2 
$6F 
$76 
#$00 



port A to output 



erase zero page 



is byte erased? 

no, then to error display (blink) 
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EACF 


85 


75 


STA 


$75 




EAD1 


A8 




TAY 






EAD2 


A2 


20 


LDX 


#$20 


test 32 pages 


EAD4 


18 




CLC 






EAD5 


C6 


76 


DEC 


$76 




EAD7 


71 


75 


ADC 


($75) ,Y 




EAD9 


C8 




INY 






EADA 


DO 


FB 


BNE 


$EAD7 




EADC 


CA 




DEX 






EADD 


DO 


F6 


BNE 


$EAD5 


test ROM 


EADF 


69 


00 


ADC 


#$00 




EAE1 


AA 




TAX 






EAE2 


C5 


76 


CMP 


$76 




EAE4 


H5o 


39 


BNE 


$EB1F 


ROM error 


EAE6 


Ieo 


CO 


CPX 


#$C0 




EAE8 


l£0 


DF 


BNE 


$EAC9 




EAEA 


A9 


01 


LDA 


#$01 




EAEC 


85 


76 


STA 


$76 




EAEE 


E6 


6F 


INC 


$6F 




EAFO 


A2 


07 


LDX 


#$07 


test RAM, beginn 


EAF2 


98 




TYA 






EAF3 


18 




CLC 






EAF4 


65 


76 


ADC 


$76 




EAF6 


91 


75 


STA 


($75), Y 




EAF8 


C8 




INY 






EAF9 


DO 


F7 


BNE 


$EAF2 




EAFB 


E6 


76 


INC 


$76 




EAFD 


CA 




DEX 






EAFE 


DO 


F2 


BNE 


$EAF2 




EBOO 


A2 


07 


LDX 


#$07 




EB02 


C6 


76 


DEC 


$76 




EB04 


88 




DEY 






EB05 


98 




TYA 






EB06 


18 




CLC 






EB07 


65 


76 


ADC 


$76 




EB09 


Dl 


75 


CMP 


($75), Y 




EBOB 


DO 


12 


BNE 


$EB1F 


RAM error 


EBOD 


49 


FF 


EOR 


#$FF 




EBOF 


91 


75 


STA 


($75), Y 




EB11 


51 


75 


EOR 


(S75) ,Y 




EB13 


91 


75 


STA 


($75), Y 




EB15 


DO 


08 


BNE 


SEB1F 


RAM error 


EB17 


98 




TYA 






EB18 


DO 


EA 


BNE 


$EB04 




EB1A 


CA 




DEX 






EB1B 


DO 


E5 


BNE 


$EB02 


continue test 


EB1D 


FO 


03 


BEO 


$EB22 


ok 


EB1F 


4C 


71 EA 


JMP 


$EA71 


co error display 


EB22 


A2 


45 


LDX 


t$45 




EB24 


9A 




TXS 




initialize stack 


EB25 


AD 


00 1C 


LDA 


S1C00 




EB28 


29 


F7 


AND 


#$F7 


turn LED off 


EB2A 


8D 


00 1C 


STA 


$1COO 




EB2D 


A9 


01 


LDA 


#$01 
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EB2F 


8D 


OC 18 


STA 


$180C 


EB32 


A9 


82 


LDA 


#$82 


EB34 


8D 


OD 18 


STA 


$180D 


EB37 


8D 


OE 18 


STA 


$180E 


EB3A 


AD 


00 18 


LDA 


$1800 


EB3D 


29 


60 


AND 


#$60 


EB3F 


OA 




ASL 


A 


EB40 


2A 




ROL 


A 


EB41 


2A 




ROL 


A 


EB42 


2A 




ROL 


A 


EB43 


09 


48 


ORA 


#$48 


EB45 


85 


78 


STA 


$78 


EB47 


49 


60 


EOR 


#$60 


EB49 


85 


77 


STA 


$77 


EB4B 


A2 


00 


LDX 


#$00 


EB4D 


A0 


00 


LDY 


#$00 


EB4F 


A9 


00 


LDA 


#$00 


EB51 


95 


99 


STA 


$99, X 


EB53 


E8 




I NX 




EB54 


B9 


EO FE 


LDA 


$FEE0,Y 


EB57 


95 


99 


STA 


$99, X 


EB59 


E8 




I NX 




EB5A 


C8 




I NY 




EB5B 


CO 


05 


CPY 


#$05 


EB5D 


DO 


FO 


BNE 


$EB4F 


EB5F 


A9 


00 


LDA 


#$00 


EB61 


95 


99 


STA 


$99, X 


EB63 


E8 




INX 




EB64 


A9 


02 


LDA 


#$02 


EB66 


95 


99 


STA 


$99, X 


EB68 


E8 




INX 




EB69 


A9 


D5 


LDA 


#$D5 


E86B 


95 


99 


STA 


$99, X 


EB6D 


E8 




INX 




EB6E 


A9 


02 


LDA 


#$02 


EB70 


95 


99 


STA 


$99, X 


EB72 


A9 


FF 


LDA 


#$FF 


EB74 


A2 


12 


LDX 


#$12 


EB76 


9D 


2B 02 


STA 


$022B,X 


EB79 


CA 




DEX 




EB7A 


10 


FA 


BPL 


$EB76 


EB7C 


A2 


05 


LDX 


#$05 


EB7E 


95 


A7 


STA 


SA7,X 


EB80 


95 


AE 


STA 


$AE,X 


EB82 


95 


CD 


STA 


$CD,X 


EB84 


CA 




DEX 




EB85 


10 


F7 


BPL 


$EB7E 


EB87 


A9 


05 


LDA 


#$05 


EB89 


85 


AB 


STA 


$AB 


EB8B 


A9 


06 


LDA 


#$06 


EB8D 


85 


AC 


STA 


$AC 


EB8F 


A9 


FF 


LDA 


#$FF 


EB91 


85 


AD 


STA 


$AD 


EB93 


85 


B4 


STA 


SB4 


EB95 


A9 


05 


LDA 


#$05 



CA1 (ATN IN) trigger on pos edge 

interrupt possiDle through ATN IN 

read port B 

isolate bits 5 & 6 (device #) 

rotate to bit positions & 1 

add offset from 8 + $40 for TALK 
device number for TALK (send) 
erase bit 6, set bit 5 
device number + $20 for LISTEN 



low-byte of buffer address 

high byte of address from table 
save 



ptr $A3/$A4 to $200, input buffer 



pointer $A5/$A6 to $2D5, error 
message pointer 



fill channel table with $FF 

erase buffer table 
erase side-sector table 



buffer 5 

associate with channel 4 

buffer 6 

associate with channel 5 
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EB97 
EB9A 
EB9C 
EB9F 
EBA1 
EBA4 
EBA6 
EBA8 
EBAA 
EBAC 
EBAE 
EBB1 
EBB3 
EBB6 
EBB8 
EBBA 
EBBC 
EBBF 
EBC2 
EBC5 
EBC7 
EBC9 
EBCB 
EBCD 
EBCF 
EBD1 
EBD3 
EBD5 
EBD7 
EBDA 
EBDC 
EBDF 
EBE1 
EBE4 
EBE7 
EBE8 
EBEB 
EBED 
EBFO 
EBF3 
EBF5 
EBF7 
EBFA 
EBFC 



8D 3B 02 

A9 84 

8D 3A 02 

A9 OF 

8D 56 02 

A9 01 

85 F6 

A9 88 

85 F7 

A9 FO 

8D 4F 02 

A9 FF 

8D 50 02 

A9 01 

85 1C 

85 ID 

20 63 CB 

20 FA CE 

20 59 F2 

A9 22 

85 65 

A9 EB 

85 66 

A9 OA 

85 69 

A9 05 

85 6A 

A9 73 

20 CI E6 

A9 1A 

8D 02 18 . 

A9 00 

8D 00 18 

20 80 E7 
58 

AD 00 18 

29 E5 

8D 00 18 

AD 55 02 

FO OA 

A9 00 

8D 55 02 

85 67 

20 46 CI 



STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
CLI 
LDA 
AND 
STA 
LDA 
BEO 
LDA 
STA 
STA 
JSR 



$023B 

#$84 

$023A 

#$0F 

$0256 

#$01 

$F6 

#$88 

$F7 

#$E0 

$024F 

#$FF 

$0250 

#$01 

$1C 

$1D 

$CB63 

$CEFA 

$F259 

#$22 

$65 

#$EB 

$66 

#$0A 

$69 

#$05 

$6A 

#$73 

$E6C1 

#$1A 

$1802 

#$00 

$1800 

$E780 

$1800 

#$E5 

$1800 

$0255 

$EBFF 

#$00 

$0255 

$67 

$C146 



XWXKXXKKX********************* 



EBFF 
ECOO 
EC02 
EC04 
EC07 
EC08 
ECOA 
ECOC 
ECOE 



58 

A5 7C 

FO 03 

Qc 5B E8 
58 

A9 OE 

85 72 

A9 00 

85 6F 



CLI 

LDA $7C 
BEO $EC07 
JMP $E8 5B 
CLI 

LDA #?0E 
STA $72 
LDA #$00 
STA $6F 



channel 5 WRITE flag erased 

channel 4 WRITE flag set 
initialize channel allocation reg 
bit ' 1' equals channel free 

WRITE flag 

READ flag 

5 buffers free 

initialize buffer allocation reg 

$24F/$250, 16 bit 



flags for WRITE protect 

set vector for U0 
initialize channel table 
intialization for disk controller 



pointer $65/$66 to $EB22 



step width 10 

for sector assignment 

5 read attempts 

prepare power-up message 

73, 'cbm dos v2.6 1541' 

bit 1, 3 & 4 to exit 

data direction of port B 

erase data register 
check for auto-start 



reset serial port 

command flag set? 
no 

reset command flag 

analyze and execute command 

wait loop 

ATN signal discovered? 

no 

to IEEE routine 

14 

as secondary address 

job counter 
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EC10 


85 


70 




STA 


$70 




EC12 


A6 


72 




LDX 


$72 




EC14 


BD 


2B 


02 


LDA 


$022B,X 


secondary address 


EC17 


C9 


FF 




CMP 


#SFF 


channel associated? 


EC19 


FO 


10 




BEO 


$EC2B 


no 


EC1B 


26 


3F 




AND 


#$3F 




EC1D 


85 


82 




STA 


$82 


channel number 


EC1F 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


EC22 


AA 






TAX 






EC23 


BD 


5B 


02 


LDA 


$025B,X 


drive number 


EC26 


29 


01 




AND 


#$01 




EC28 


AA 






TAX 






EC29 


F6 


6F 




INC 


$6F,X 


increment job counter 


EC2B 


C6 


72 




DEC 


$72 


lo address 


EC2D 


10 


E3 




BPL 


$EC12 


continue search 


EC2F 


A0 


04 




LDY 


#$04 


buffer counter 


EC31 


B9 


00 


00 


LDA 


$0000, Y 


disk controller in action? 


EC34 


10 


05 




BPL 


$EC3B 


no 


EC36 


29 


01 




AND 


#$01 


isolate drive number 


EC38 


AA 






TAX 






EC39 


F6 


6F 




INC 


$6F,X 


increment job counter 


EC3B 


88 






DEY 






EC3C 


10 


F3 




BPL 


$EC31 


next buffer 


EC3E 


78 






SEI 






EC3F 


AD 


00 


1C 


LDA 


$1COO 




EC42 


29 


F7 




AND 


#$F7 


erase LED bit 


EC4 4 


48 






PHA 






EC4 5 


A5 


7F 




LDA 


$7F 


drive number 


EC47 


85 


86 




STA 


$86 




EC49 


A9 


00 




LDA 


#$00 




EC4B 


85 


7F 




STA 


$7F 


drive 


EC4D 


A5 


6F 




LDA 


$6F 


job for drive 0? 


EC4F 


FO 


OB 




BEO 


$EC5C 


no 


EC51 


A5 


1C 




LDA 


$1C 


write protect for drive 0? 


EC53 


FO 


03 




BEO 


$EC58 


no 


EC55 


20 


13 


D3 


JSR 


$D313 


close all channels to drive 


EC58 


68 






PLA 






EC59 


09 


08 




ORA 


#$08 


set LED bit 


EC5B 


48 






PHA 






EC5C 


E6 


7F 




INC 


$7F 


increment drive number 


EC5E 


A5 


70 




LDA 


$70 


job for drive 1? 


EC60 


FO 


OB 




BEO 


$EC6D 


no 


EC62 


A5 


ID 




LDA 


$1D 


write protect for drive 1? 


EC64 


FO 


03 




BEO 


SEC69 


no 


EC66 


20 


13 


D3 


JSR 


SD313 


close all channels to drive 1 


EC69 


68 






PLA 






EC6A 


09 


00 




ORA 


#$00 




EC6C 


48 






PHA 






EC6D 


A5 


86 




LDA 


$86 




EC6F 


85 


7F 




STA 


$7F 


get drive number back 


EC71 


68 






PLA 




bit for LED 


EC72 


AE 


6C 


02 


LDX 


S026C 


interrupt counter 


EC75 


FO 


21 




BEO 


SEC98 


to zero? 


EC77 


AD 


00 


1C 


LDA 


$1C00 




EC7A 


EO 


80 




CPX 


#$80 
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th 


e 15 


41 Di 


sk Drive 


EC7C 


DO 


03 




BNE 


$EC81 


EC7E 


4C 


8B 


EC 


JMP 


$EC8B 


EC81 


AE 


05 


18 


LDX 


$1805 


EC84 


30 


12 




BMI 


$EC98 


EC86 


A2 


AO 




LDX 


*SA0 


EC88 


8E 


05 


18 


STX 


$1805 


EC8B 


CE 


6C 


02 


DEC 


$026C 


EC8E 


DO 


08 




BNE 


$EC98 


EC90 


4D 


6D 


02 


EOR 


$026D 


EC93 


A2 


10 




LDX 


#$10 


EC95 


8E 


6C 


02 


STX 


S026C 


EC98 


8D 


00 


1C 


STA 


$1C00 


EC9B 


4C 


FF 


EB 


JMP 


$EBFF 


X w w w w 


************************* 


EC9E 


A9 


00 




LDA 


#$00 


ECAO 


85 


83 




STA 


$83 


ECA2 


A9 


01 




LDA 


#$01 


ECA4 


20 


E2 


Dl 


JSR 


SD1E2 


ECA7 


A9 


00 




LDA 


#$00 


ECA9 


20 


C8 


D4 


JSR 


$D4C8 


ECAC 


A6 


82 




LDX 


$82 


ECAE 


A9 


00 




LDA 


#$00 


ECBO 


9D 


44 


02 


STA 


$0244, X 


ECB3 


20 


93 


DF 


JSR 


$DF93 


ECB6 


AA 






TAX 




ECB7 


A5 


7F 




LDA 


$7F 


ECB9 


9D 


5B 


02 


STA 


$025B,X 


ECBC 


A9 


01 




LDA 


#$01 


ECBE 


20 


Fl 


CF 


JSR 


$CFFl 


ECC1 


A9 


04 




LDA 


#$04 


ECC3 


20 


Fl 


CF 


JSR 


$CFFl 


ECC6 


A9 


01 




LDA 


#$01 


ECC8 


20 


Fl 


CF 


JSR 


$CFF1 


ECCB 


20 


Fl 


CF 


JSR 


$CFF1 


ECCE 


AD 


72 


02 


LDA 


$0272 


ECD1 


20 


Fl 


CF 


JSR 


$CFF1 


ECD4 


A9 


00 




LDA 


#$00 


ECD6 


20 


Fl 


CF 


JSR 


$CFF1 


ECD9 


20 


59 


ED 


JSR 


$ED59 


ECDC 


20 


93 


DF 


JSR 


$DF9 3 


ECDF 


OA 






ASL 


A 


ECEO 


AA 






TAX 




ECE1 


D6 


99 




DEC 


$99, X 


ECE3 


Dfi 


99 




DEC 


$99, X 


ECE5 


A9 


00 




LDA 


#$00 


ECE7 


20 


Fl 


CF 


JSR 


$CFF1 


ECEA 


A9 


01 




LDA 


#$01 


ECEC 


20 


Fl 


CF 


JSR 


SCFF1 


ECEF 


20 


Fl 


CF 


JSR 


SCFF1 


ECF2 


20 


CE 


C6 


JSR 


$C6CE 


ECF5 


90 


2C 




BCC 


SED23 


ECF7 


AD 


72 


02 


LDA 


$0272 


EC FA 


20 


Fl 


CF 


JSR 


$CFFl 


ECFD 


AD 


73 


02 


LDA 


$0273 



erase timer interrupt 



set timer 
decrement counter 
not yet zero? 



reset counter 
turn LED on/off 
back to wait loop 

LOAD •■$" 

secondary address 

find channel and buffer 

initialize buffer pointer 
channel number 

pointer to end = zero 
get buffer number 

drive number 

bring in table 

1 

write in buffer 

4, start address $0401 

write in buffer 

2 times 1 

write in buffer as link address 

drive number 

write in buffer as line number 

line number ni 

in buffer 

directory entry in buffer 

get buffer number 

decrement buffer pointer 

as line end in buffer 

2 times 1 as link address 

directory entry in buffer 
another entry? 
block number lo 
in buffer 
block number hi 
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EDOO 


20 


Fl 


CF 


JSR 


$CFFl 


EDO 3 


20 


59 


ED 


JSR 


$ED59 


ED06 


A9 


00 




LDA 


#$00 


ED08 


20 


Fl 


CF 


JSR 


$CFFl 


EDOB 


DO 


DD 




BNE 


$ECEA 


EDOD 


20 


93 


DF 


JSR 


$DF9 3 


ED10 


OA 






ASL 


A 


ED11 


AA 






TAX 




ED12 


A9 


00 




LDA 


#$00 


EDI 4 


95 


99 




STA 


$99, X 


ED16 


A9 


88 




LDA 


#$88 


ED18 


A4 


82 




LDY 


$82 


ED1A 


8D 


54 


02 


STA 


$0254 


ED1D 


99 


F2 


00 


STA 


$00F2,Y 


ED20 


A5 


85 




LDA 


$85 


ED22 


60 






RTS 




****************************** 


ED23 


AD 


72 


02 


LDA 


$0272 


ED26 


20 


Fl 


CF 


JSR 


$CFFl 


ED29 


AD 


73 


02 


LDA 


$0273 


ED2C 


20 


Fl 


CF 


JSR 


$CFF1 


ED2F 


20 


59 


ED 


JSR 


$ED59 


ED32 


20 


93 


DF 


JSR 


$DF93 


ED35 


OA 






ASL 


A 


ED36 


AA 






TAX 




ED37 


D6 


99 




DEC 


$99, X 


ED39 


D6 


99 




DEC 


$99, X 


ED3B 


A9 


00 




LDA 


#$00 


ED3D 


20 


Fl 


CF 


JSR 


$CFF1 


ED40 


20 


Fl 


CF 


JSR 


$CFF1 


ED43 


20 


Fl 


CF 


JSR 


$CFFl 


ED46 


20 


93 


DF 


JSR 


$DF9 3 


ED49 


OA 






ASL 


A 


ED4A 


A8 






TAY 




ED4B 


B9 


99 


02 


LDA 


$0099, Y 


ED4E 


A6 


82 




LDX 


$82 


ED50 


9D 


44 


02 


STA 


$0244, X 


ED53 


DE 


44 


02 


DEC 


$0244, X 


ED56 


4C 


OD 


ED 


JMP 


$ED0D 


****************************** 


ED59 


AO 


00 




LDY 


#$00 


ED5B 


B9 


Bl 


02 


LDA 


$02Bl,Y 


ED5E 


20 


Fl 


CF 


JSR 


$CFF1 


ED61 


C8 






INY 




ED6 2 


CO 


IB 




CPY 


#$1B 


ED64 


DO 


F5 




BNE 


$ED5B 


ED66 


60 






RTS 




****************************** 


ED67 


20 


37 


Dl 


JSR 


$D137 


ED6A 


FO 


01 




BEO 


$ED6D 


ED6C 


60 






RTS 





in buffer 

directory entry in buffer 

zero as end marker in buffer 
buffer full? no 
get buffer number 



buffer pointer to zero 
set READ flag 
channel number 



flag for channel 
data byte 



block number lo 

write in buffer 

block number hi 

in buffer 

'Blocks free. 1 in buffer 

get buffer number 



buffer pointer minus 2 

three zeroes as program end 

get buffer number 
times 2 

buffer pointer 

as end marker 

transmit directory line 

character from buffer 
write in output buffer 

27 characters? 



get byte from buffer 

get byte 

buffer pointer zero? 
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ED6D 
ED6F 
ED71 
ED7 4 
ED76 
ED78 
ED7B 
ED7D 



85 85 
A4 82 



FO 08 
A9 80 
99 F2 00 
A5 85 
60 



STA $85 
LDY $82 



B9 44 02 LDA $0244, Y 



BEO $ED7E 
LDA #$80 
STA $00F2,Y 
LDA $85 
RTS 



save data byte 
channel number 
set end marker 
zero (LOAD $)? 

set READ flag 
data byte 



ED7E 48 

ED7F 20 EA EC 

ED82 68 

ED83 60 



PHA 

JSR $ECEA 

PLA 

RTS 



create directory line in buffer 



****************************** 



ED84 
ED87 
ED8A 
ED8C 
ED8F 
ED92 
ED9 4 
ED9 7 
ED9A 
ED9C 
ED9E 
EDA0 
ED A3 
EDA5 
EDA8 
EDAA 
EDAD 
EDB0 



20 Dl CI 
20 42 DO 
A9 40 
8D F9 02 
20 B7 EE 
A9 00 
8D 92 02 
20 AC C5 
DO 3D 
A9 00 
85 81 
AD 8E FE 
85 80 
20 E5 ED 
A9 00 
8D F9 02 
20 FF EE 
4C 94 CI 



JSR 
JSR 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
BNE 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
J MP 



SC1D1 

SD042 

#$40 

$02F9 

$EEB7 

#$00 

$0292 

$C5AC 

$EDD9 

#$00 

$81 

$FE85 

$80 

$EDE5 

#$00 

$02F9 

$EEFF 

$C194 



V command, 'collect' 

find drive number in input line 

load BAM 



create new BAM in buffer 



load directory, find 1st flag 
found? 

sector 

18 

track 18 for BAM 

mark dir blocks as allocated 



write BAM back to disk 
done, prepare disk status 



****************************** 



EDB3 
EDB4 
ED86 
EDB7 
EDB8 
EDBA 
EDBB 
EDBD 
EDBF 
EDC1 
EDC3 
EDC4 
EDC6 
EDC8 
EDCB 
EDCC 
EDGE 
EDCF 
EDD1 
EDD4 



C8 

Bl 94 

48 

C8 

Bl 94 

48 

A0 13 

Bl 94 

F0 0A 

85 80 

C8 

Bl 94 

85 81 

20 E5 ED 

68 

85 81 

68 

85 80 

20 E5 ED 

20 04 C6 



INY 
LDA 
PHA 
INY 
LDA 
PHA 
LDA 
LDA 
BEO 
STA 
INY 
LDA 
STA 
JSR 
PLA 
STA 
PLA 
STA 
JSR 
JSR 



($94), Y save track 



($94) , Y 

#$13 
($94) ,Y 
SEDCB 
$80 

($94) ,Y 

$81 

SEDE5 

$81 

$80 

$EDE5 

$C604 



and sector 

pointer to side-sector block 

no track following? 
track and 



sector of 1st side-sector block 
mark side-sector blocks as 
allocated 

get track and sector back 

mark blocks of file as allocated 
read next entry in directory 
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EDD7 


FO 


C3 




BEO 


$ED9C 




EDD9 


AO 


00 




LDY 


#$00 




EDDB 


Bl 


94 




LDA 


($94), 


Y 


EDDD 


30 


D4 




BMI 


$EDB3 




EDDF 


20 


B6 


C8 


JSR 


$C8B6 





EDE2 



4C D4 ED JMP $EDD4 



****************************** 



EDE5 


20 


5F 


D5 


JSR 


$D55F 


EDE8 


20 


90 


EF 


JSR 


$EF90 


EDEB 


20 


75 


D4 


JSR 


$D475 


EDEE 


A9 


00 




LDA 


#$00 


EDFO 


20 


C8 


D4 


JSR 


SD4C8 


EDF3 


20 


37 


Dl 


JSR 


$D137 


EDF6 


85 


80 




STA 


$80 


EDF8 


20 


37 


Dl 


JSR 


SD137 


EDFB 


85 


81 




STA 


$81 


EDFD 


A5 


80 




LDA 


$80 


EDFF 


DO 


03 




BNE 


SEE04 


EE01 


4C 


27 


D2 


JMP 


SD227 



end of directory? 

file type 

bit 7 set, file closed? 

file type to zero and write BAM 



allocate file blocks in BAM 
check track and sector number 
allocate block in BAM 
read next block 

buffer pointer zero 

get byte from buffer 

track 

get byte from buffer 

sector 

another block? 

yes 

close channel 



EE04 20 90 EF JSR $EF90 
EE07 20 4D D4 JSR $D44D 
EE0A 4C EE ED JMP SEDEE 

****************************** 



EE0D 
EE10 
EE12 
EE14 
EE16 
EE19 
EE1B 
EE1D 
EE20 
EE22 
EE23 
EE2 4 
EE27 
EE2A 
EE2C 
EE2F 
EE31 
EE34 
EE36 
EE39 
EE3B 
EE3D 
EE40 
EE43 



20 12 C3 
A5 E2 
10 05 
A9 33 
4C C8 CI 
29 01 
85 7F 
20 00 CI 
A5 7F 
0A 
AA 

AC 7B 02 
CC 74 02 
F0 1A 
B9 00 02 
95 12 
B9 01 02 
95 13 
20 07 D3 
A9 01 
85 80 
20 C6 C8 
20 05 FO 
4C 56 EE 



JSR 
LDA 
BPL 
LDA 
JMP 
AND 
STA 
JSR 
LDA 
ASL 
TAX 
LDY 
CPY 
BEO 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
JSR 
JMP 



SC312 

$E2 

$EE19 

#$33 

SC1C8 

#$01 

$7F 

$C100 

$7F 

A 

S027B 

$0274 

SEE46 

$0200, Y 

$12, X 

$0201, Y 

$13, X 

$D307 

#$01 

$80 

$C8C6 

$F005 

SEE56 



EE46 20 42 DO JSR SD042 

EE49 A6 7F LDX $7F 

EE4B BD 01 01 LDA $0101, X 

EE4E CD D5 FE CMP $FED5 



allocate block in BAM 
read next block 
continue 

N command, 'header' 
get drive number 
drive number 
not clear? 

33, 'syntax error' 

drive number 
turn LED on 
drive number 
times 2 

comma position 

compare with end name 

format without ID 

first character of ID 

save 

second character 

close all channels 

track 1 
format disk 
erase buffer 
continue as below 

load BAM 
drive number 

'A', marker for 1541 format 
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EE51 


FO 


03 




BEO 


SEE56 




ok 


EE53 


4C 


72 


D5 


J MP 


$D572 




73, 'cbm dos v2.6 1541' 


EE56 


20 


B7 


EE 


JSR 


SEEB7 




create BAM 


EE59 


A5 


P9 




LDA 


SF9 




buffer number 


EE5B 


A8 






TAY 








EE5C 


0A 






ASL 


A 






EE5D 


AA 






TAX 








EE5E 


AD 


88 


FE 


LDA 


$FE88 




$90, start of disk name 


EE61 


95 


99 




ST A 


S99,X 




buffer pointer to name 


EE63 


AE 


7A 


02 


LDX 


S027A 






EE66 


A9 


IB 




LDA 


*S1B 




27 


EE68 


20 


6E 


C6 


JSR 


SC6PE 




write filenames in buffer 


EE6B 


A0 


12 




LDY 


#$12 




position 18 


EE6D 


A6 


7F 




LDX 


S7F 




drive number 


EE6F 


AD 


D5 


FE 


LDA 


$FED5 




'A' , 1541 format 


EE7 2 


9D 


01 


01 


STA 


$0101, 


X 




EE75 


8A 






TXA 








EE7 6 


OA 






ASL 


A 




times 2 


EE77 


AA 






TAX 








EE78 


B5 


12 




LDA 


$12, X 




ID, first character 


EE7A 


91 


94 




STA 


I $94) 


Y 


in buffer 


EE7C 


C8 






INY 








EE7D 


B5 


13 




LDA 


$13, X 




and second character 


EE7F 


91 


94 




STA 


($94) 


Y 


in buffer 


EE81 


C8 






INY 








EE8 2 


C8 






INY 








EE83 


A9 


32 




LDA 


#S32 




• 2 - 


EE85 


91 


94 




STA 


($94) 


Y 


in buffer 


EE87 


C8 






INY 








EE88 


AD 


D5 


FE 


LDA 


SFED5 




'A' 1541 format 


EE8B 


91 


94 




STA 


($94) 


Y 


in buffer 


EE8D 


AO 


02 




LPY 


#S02 






EE8F 


91 


6D 




STA 


(S6D) 


Y 


and at position 2 


EE91 


AD 


85 


FE 


LDA 


SFE85 




18 


EE94 


85 


80 




STA 


$80 




track number 


EE9 6 


20 


93 


EF 


JSR 


$EF93 




mark block as allocated 


EE99 


A9 


01 




LDA 


#$01 




1 


EE9B 


85 


81 




STA 


S81 




sector number 


EE9D 


20 


93 


EF 


JSR 


$F,F9 3 




mark block as allocated 


EEAO 


20 


FF 


EE 


JSR 


SEEKF 




write BAM 


EEA3 


20 


05 


FO 


JSR 


$F005 




pointer $6D/$6E to buffer, eras* 


EEA6 


AO 


01 




LDY 


#$01 




buffer 


EEA8 


A9 


FF 




LDA 


#$FF 






EEAA 


9A 


6D 




STA 


(S6D) 


Y 


track following is zero 


EEAC 


20 


64 


D4 


JSR 


SD464 




write BAM 


EEAF 


C6 


81 




DEC 


$81 




decrement sector number, 


EEB1 


20 


60 


D4 


JSR 


SD460 




read block 


EEB4 


4C 


94 


CI 


JMP 


$C194 




prepare disk status 


****************************** 


create BAM 



EEB7 20 Dl F0 JSR SF0D1 

EEBA A0 00 LDY #$00 

EFBC A9 12 LDA #$12 

EEBE 91 6D STA (S6D) ,Y 



18 

pointer to directory track 
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EECO 


C8 




INY 




EEC1 


98 




TYA 




EEC2 


91 


6D 


STA 


($6D) ,Y 


EEC4 


C8 




INY 




EEC5 


C8 




INY 




EEC6 


C8 




INY 




EEC7 


A9 


00 


LDA 


#$00 


EEC9 


85 


6F 


STA 


S6F 


EECB 


85 


70 


STA 


$70 


EECD 


85 


71 


STA 


$71 


EECF 


98 




TYA 




EEDO 


4A 




LSR 


A 


EED1 


4A 




LSR 


A 


EED2 


20 


4B F2 


JSF 


$F24B 


EED5 


91 


6D 


STA 


(S6D) ,Y 


EED7 


C8 




INY 




EED8 


AA 




TAX 




EED9 


38 




SEC 




EEDA 


26 


6F 


ROL 


$6F 


EEDC 


26 


70 


ROL 


$70 


EEDE 


26 


71 


ROL 


$71 


EEEO 


CA 




DEX 




EEE1 


DO 


F6 


BNE 


$EED9 


EEE3 


B5 


6F 


LDA 


S6F,X 


EEE5 


91 


6D 


STA 


( $6D) ,Y 


EEE7 


C8 




INY 




EEE8 


E8 




INX 




EEE9 


EO 


03 


CPX 


#$03 


EEEB 


90 


F6 


BCC 


$EEE3 


EEED 


CO 


90 


CPY 


#$90 


EEEF 


90 


D6 


BCC 


SEEC7 


EEF1 


4C 


75 DO 


JMP 


$D075 



****************************** 



EEF4 



20 93 DF JSR $DF93 



EEF7 


AA 






TAX 




EEF8 


BD 


5B 


02 


LDA 


$025B,X 


EEFB 


29 


01 




AND 


#$01 


EEFD 


85 


7F 




STA 


$7F 


EEFF 


A4 


7F 




LDY 


$7F 


EFOl 


B9 


51 


02 


LDA 


$0251, Y 


EF04 


DO 


01 




BNE 


$EF07 


EF06 


60 






RTS 




EF07 


A9 


00 




LDA 


#$00 


EF09 


99 


51 


02 


STA 


$0251, Y 


EFOC 


20 


3A 


EF 


JSR 


SEF3A 


EFOF 


A5 


7F 




LDA 


S7F 


EF11 


OA 






ASL 


A 


EF12 


48 






PHA 




EF13 


20 


A5 


FO 


JSR 


SFOA5 


EF16 


68 






PLA 




EF17 


18 






CLC 




EF18 


69 


01 




ADC 


#$01 


EF1A 


20 


A5 


FO 


JSR 


$FOA5 



pointer to directory sector 



3 bytes = 24 bits for sectors 

byte position 

divided by 4 = track number 
get number of sectors 
and in BAM 



create bit model 



3 bytes 

the BAM in buffer 



position 144? 

no, next track 

calculate number of free blocks 

write BAM if needed 
get buffer number 

command for disk controller 

isolate drive number 

BAM-changed flag set? 
yes 



reset BAM-changed flag 
set buffer pointer for BAM 
drive number 
times 2 

verify BAM entry 



increment track number 
verify BAM entry 
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EF1D 


A5 


80 




LDA 


$80 


EF1F 


48 






PHA 




EF20 


A9 


01 




LDA 


#$01 


EF22 


85 


80 




STA 


$80 


EF24 


OA 






ASL 


A 


EF25 


OA 






ASL 


A 


EF26 


85 


6D 




STA 


$6D 


EF28 


20 


20 


F2 


JSR 


$F220 


EF2B 


E6 


80 




INC 


S80 


EF2D 


A5 


80 




LDA 


$80 


EF2F 


CD 


D7 


FE 


CMP 


$FED7 


EF32 


90 


F0 




BCC 


$EF24 


EF34 


68 






PLA 




EF35 


85 


80 




STA 


$80 


EF37 


4C 


8A 


D5 


JMP 


SD58A 


****************************** 


EF3A 


20 


OF 


Fl 


JSR 


$F10F 


EF3D 


AA 






TAX 




EF3E 


20 


DF 


FO 


JSR 


$F0DF 


EF41 


A6 


F9 




LDX 


$F9 


EF43 


BD 


EO 


FE 


LDA 


$FEE0,X 


EF46 


85 


6E 




STA 


S6E 


EF48 


A9 


00 




LDA 


#$00 


EF4A 


85 


6D 




STA 


$6D 


EF4C 


60 






RTS 




****************************** 


EF4D 


A6 


7F 




LDX 


$7F 


EF4F 


BD 


FA 


02 


LDA 


S02FA,X 


EF52 


8D 


72 


02 


STA 


$0272 


EF55 


BD 


FC 


02 


LDA 


$02FC,X 


EF58 


8D 


73 


02 


STA 


$0273 


EF5B 


60 






RTS 




****************************** 


EF5C 


20 


Fl 


EF 


JSR 


$EFFl 


EF5F 


20 


CF 


EF 


JSR 


$EFCF 


EF62 


38 






SEC 




EF63 


DO 


22 




BNF 


$EF87 


EF65 


Bl 


6D 




LDA 


(S6D) ,Y 


EF67 


ID 


F9 


EF 


ORA 


SEFE9 


EF6A 


91 


6D 




STA 


($60) ,Y 


EF6C 


20 


88 


EF 


JSR 


$EF88 


EF6F 


A4 


6F 




LDY 


$6F 


EF71 


18 






CLC 




EF72 


Bl 


6D 




LDY 


($6D) ,Y 


EF74 


69 


01 




ADC 


#$01 


EF76 


91 


6D 




STA 


($6D),Y 


EF78 


A5 


80 




LDA 


$80 


EF7A 


CD 


85 


FE 


CMP 


$FE85 


EF7D 


F0 


3B 




BEO 


$EFBA 


EF7F 


FE 


FA 


02 


INC 


$02FA,X 


EF82 


DO 


03 




BNE 


SEF87 


EF84 


FE 


FC 


02 


INC 


S02FC.X 



track 

crack 1 

times 4 

verify BAM 

increment track number 

and compare with max val + 1 = 36 
ok, next track 

get track number back 
write BAM to disk 

set buffer pointer for BAM 
get 6 for drive 

allocate buffer 

buffer number 

buffer address, hi byte 

lo byte 

pointer to $6D/$6E 



get # of free blocks for dir 

drive number 

number of blocks, lo 

number of blocks, hi 
in buffer for directory 



mark block as free 
set buffer pointer 
erase bit for sector in BAM 

block already free, then done 

bit model of BAM 

set bit X, marker for free 

set flag for BAM changed 



increment # of free blocks/track 

track 

equal to 18? 

then skip 

mc # of free blocks in disk 

increment number of blocks hi 
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EF87 



60 



RTS 



****************************** 

EF88 A6 7F LDX $7F 

EF8A A9 01 LDA #$01 

EF8C 9D 51 02 STA $0251, X 

EF8F 60 RTS 

****************************** 



EF90 
EF93 
EF96 
EF98 
EF9A 
EF9D 
EF9F 
EFA2 
EFA4 
EFA6 
EFA7 
EFA9 
EFAB 
EFAD 
EFBO 
EFB2 
EFB5 
EFB7 
EFBA 
EFBD 
EFCO 
EFC2 
EFC5 
EFC7 
EFC9 
EFCB 
EFCE 



20 Fl EF 
20 CF EF 
FO 36 
Bl 6D 
5D E9 EF 
91 6D 
20 88 EF 
A4 6F 
Bl 6D 
38 

E9 01 
91 6D 
A5 80 
CD 85 FE 
FO OB 
BD FA 02 
DO 03 
DE FC 02 
DE FA 02 
BD FC 02 
DO OC 
BD FA 02 
C9 03 
BO 05 
A9 72 
20 C7 E6 
60 



JSR 
JSR 
BEO 
LDA 
EOR 
STA 
JSR 
LDA 
LDA 
SEC 
SBC 
STA 
LDA 
CMP 
BEO 
LDA 
BNE 
DEC 
DEC 
LDA 
BNE 
LDA 
CMP 
BCS 
LDA 
JSR 
RTS 



$EFF1 

SEFCF 

$EFCE 

($6D),Y 

$EFE9,X 

($6D) ,Y 

$EF88 

$6F 

($6D) ,Y 

#$01 

($6D) .Y 

$80 

$FE85 

$EFBD 

$02FA,X 

SEFBA 

$02FC,X 

$02FA,X 

S02FC,X 

SEFCE 

$02FA,X 

#$03 

$EFCE 

#$72 

$E6C7 



****************************** 



EFCF 
EFD2 
EFD3 
EFD5 
EFD7 
EFD8 
EFD9 
EFDA 
EFDB 
EFDD 
EFDE 
EFEO 
EFE2 
EFE3 
EFE5 
EFE8 



20 11 FO 

98 

85 6F 

A5 81 

4A 

4A 

4A 

38 

65 6F 

A8 

A5 81 

29 07 

AA 

Bl 6D 

3D E9 EF 

60 



JSR $F011 

TYA 

STA S6F 

LDA S81 

LSR A 

LSR A 

LSR A 

SEC 

ADC S6F 

TAY 

LDA $81 

AND #$07 

TAX 

LDA (S6D) ,Y 

AND $EFE9,X 

RTS 



set flag for 'BAM changed' 
drive number 

flag = 1 



mark block as allocated 
set buffer pointer 
erase bit for sector in BAM 
already allocated, tnen done 

erase bit for block 

set flag for BAM changed 



decrement # of blocks per track 

track 
18? 

number of free blocks lo 

decrement number of free blocks 

number of free blocks hi 
more than 255 blocks free? 
free blocks lo 

smaller than 3? 

72, 'disk full' 



erase bit for sector in BAM entry 
find BAM field for this track 



sector 
divide by 8 



byte number in BAH entry 
sector number 

bit number in BAM entry 
Dyte in BAM 

erase bit for corresponding 
sector 
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****************************** 
EFE9 01 02 04 08 10 20 40 80 
****************************** 



powers of 2 

write BAM after change 



EFF1 


A9 FF 




LDA #$FF 




EFF3 


2C F9 


02 


BIT $02F9 




EFF6 


F0 0C 




BEO SF004 




EFF8 


10 0A 




BPL $F00 4 




EFFA 


70 08 




BVS $F004 




EFFC 


A9 00 




LDA #$00 




EFFE 


8D F9 


02 


STA $02F9 


reset flag 


F001 


4C 8A 


D5 


JMP SD58A 


write block 


F004 


60 




RTS 





****************************** 



F005 



20 3A EF JSR $EF3A 



erase BAM buffer 

pointer $6P/$6E to BAM buffer 



F008 


AO 


00 




LDY 


#$00 




F0OA 


98 






TYA 






F00B 


91 


6D 




STA 


(S6P) ,Y 


erase BAM bu 


FOOD 


C8 






I NY 






F00E 


DO 


FB 




BNE 


$FO0B 




F010 


60 






RTS 






****************************** 




F011 


A5 


6F 




LDA 


$6F 




F013 


48 






PHA 






F014 


A5 


70 




LDA 


$70 




F016 


AS 
lA6 






PHA 






F017 


7F 




LDX 


$7F 


drive number 


F019 


B5 


FF 




LDA 


$FF,X 




F01B 


FO 


05 




BEO 


$F022 


drive zero? 


F01D 


A9 


74 




I. DA 


#$74 




F01F 


3& 


48 


E6 


JSR 


$E648 


'drive not n 


F0 22 


20 


OF 


Fl 


JSR 


$F10F 


get buffer ni 


F025 


85 


6F 




STA 


$6F 




F0 27 


8A 






TXA 






F028 


OA 






ASL 


A 




F0 29 


85 


70 




STA 


$70 




F02B 


AA 






TAX 






F02C 


A5 


80 




LDA 


$80 


track 


F02F 


DD 


9D 


02 


CMP 


S029D.X 




F031 


FO 


OB 




BEO 


$F03E 




F033 


E8 






INX 






F034 


86 


70 




STX 


$70 




F036 


DD 


9D 


02 


CMP 


$029D,X 




F039 


FO 


03 




BEO 


$F03E 




F03B 


20 


5B 


FO 


JSR 


$F05B 




F03E 


A5 


70 




LDA 


$70 




F040 


A6 


7F 




LDX 


$7F 


drive number 


F0 42 


9D 


9B 


02 


STA 


$029B,X 




F045 


OA 






ASL 


A 




F046 


OA 






ASL 


A 


times 4 


F047 


18 






CLC 






F048 


69 


Al 




ADC 


#$A1 




F04A 


85 


6D 




STA 


$6D 
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F04C 

F04E 
F050 
F052 
F054 
F055 
F057 
F058 
F05A 



A9 02 
69 00 
85 6E 
A0 00 
58 

85 70 
68 

85 6F 
60 



LDA 


#$02 


ADC 


#S00 


STA 


$6E 


LDY 


#$00 


PLA 




STA 


$70 


PLA 




STA 


$6F 



RTS 



a***************************** 



F05B 
F05D 
F060 
F062 
F063 
F064 
F067 
F069 
F06B 
F06D 
F070 
F072 
F073 
F074 
F076 
F077 
F078 
F07A 
F07C 
F07D 
F07E 
F07F 
F081 
F084 
F086 
F088 
F08A 
F08B 
F08C 
F08E 
F090 
F092 
F094 
F097 
F09A 
F09C 



A6 6F 

20 DF F0 

A5 7F 

AA 

0A 

ID 9B 02 

49 01 

29 03 

85 70 

20 A5 F0 

A5 F9 

OA 

AA 

A5 80 

0A 

0A 

95 99 

A5 70 

OA 

OA 

A8 

Al 99 

99 Al 02 

A9 00 

81 99 

F6 99 

C8 

98 

29 03 

DO EF 

A6 70 

A5 80 

9D 9D 02 

AD F9 02 

DO 03 

4C 8A D5 



LDX 
JSR 
LDA 
TAX 
ASL 
ORA 
EOR 
AND 
STA 
JSR 
LDA 
ASL 
TAX 
LDA 
ASL 
ASL 
STA 
LDA 
ASL 
ASL 
TAY 
LDA 
STA 
LDA 
STA 
INC 
INY 
TYA 
AND 
BNE 
LDX 
LDA 
STA 
LDA 
BNE 
JMP 



$6F 

$F0DF 

$7F 

A 

$029B,X 

#$01 

#$03 

$70 

$F0A5 

$F9 

A 

$80 

A 

A 

$99, X 

$70 

A 

A 

($99, X) 
S02A1,X 
#$00 
($99, X) 
$99, X 



#$03 

$F07F 

$70 

$80 

$029D,X 

$02F9 

$F09F 

SD58A 



drive number 



buffer number 



track 



times 4 

equal pointer in BAM field 



zero in buffer 
increment buffer pointer 



track 



write block 



F09F 09 80 
F0A1 8D F9 02 
F0A4 60 



ORA #$80 
STA $02F9 
RTS 



F0A5 
F0A6 
F0A9 



A8 

B9 9D 02 

F0 25 



TAY 

LDA $029D,Y 

BEO SF0D0 
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FOAB 


48 






PHA 








FOAC 


A9 


00 




LDA 


#$00 






FOAE 


99 


9D 


02 


STA 


$029D, 


,Y 




F0B1 


A5 


F9 




LDA 


$F9 




Duffer numDer 


F0B3 


OA 






ASL 


A 




times 2 


F0B4 


AA 






TAX 








F0B5 


68 






PLA 








FOBfi 


OA 






ASL 


A 






F0B7 


OA 






ASL 


A 






FOBB 


95 


99 




STA 


$99, X 






FOBA 


98 






TYA 








FOBB 


OA 






ASL 


A 






FOBC 


OA 






ASL 


A 






FOBD 


AB 






TAY 








FOBE 


B9 


Al 


02 


LDA 


S02A1, 


,Y 




FOCI 


81 


99 




STA 


($99, X) 


write in buffer 


FOC3 


A9 


00 




LDA 


#$00 






F0C5 


99 


Al 


02 


STA 


$02A1, 


,Y 




F0C8 


F6 


99 




INC 


$99, X 




increment buffer po 


FOCA 


C8 






INY 








FOCB 


9B 






TYA 








FOCC 


29 


03 




AND 


#$03 






FOCE 


DO 


EE 




BNE 


$F0BE 






FODO 


60 






RTS 








FOD1 


A5 


7F 




LDA 


$7F 




drive number 


F0D3 


OA 






ASL 


A 






F0D4 


AA 






TAX 








F0D5 


A9 


00 




LDA 


#$00 






F0D7 


9D 


9D 


02 


STA 


$029D, 


,X 




FODA 


E8 






INX 








FODB 


9D 


9D 


02 


STA 


$029D, 


X 




FODE 


60 






RTS 








FODF 


B5 


A7 




LDA 


$A7,X 






FOE1 


C9 


FF 




CMP 


#$FF 






FOE3 


DO 


25 




BNE 


$F10A 






F0E5 


8A 






TXA 








F0F6 


48 






PHA 








F0E7 


20 


8E 


D2 


JSR 


$D28E 






FOEA 


AA 






TAX 








FOEB 


10 


05 




BPL 


SF0F2 






FOED 


A9 


70 




LDA 


#$70 






FOEF 


20 


C8 


CI 


JSR 


SC1C8 




70, 'no channel' 


F0F2 


86 


F9 




STX 


$F9 






F0F4 


68 






PLA 








F0F5 


A8 






TAY 








F0F6 


8A 






TXA 








F0F7 


09 


80 




ORA 


#$80 






F0F9 


99 


A7 


00 


STA 


$00A7, 


Y 




FOFC 


OA 






ASL 


A 






FOFD 


AA 






TAX 








FOFE 


AD 


85 


FE 


LDA 


$FE85 




18, directory track 


F101 


95 


06 




STA 


$06, X 




save 


F103 


A9 


00 




LDA 


#S00 
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F105 95 07 STA $07, X as sector 

T107 4C 86 D5 JMP $D586 write block 

?10A 29 OF AND #$0F 

riOC 85 F9 STA $ F9 buffer number 

?10E 60 RTS 



get buffer number for BAM 



r*******************jr*KKltKK* 

'10F A9 06 LDA #$06 

'111 A6 7F LDX $7F drive number 

'113 DO 03 BNE $F118 

'115 18 CLC 

'116 69 07 ADC #$07 gives 13 for drive 

'118 60 RTS 

***************************** buffer number for BAM 

'119 20 OF Fl JSR $F10F get buffer number 

'11C AA TAX 

IID 60 RTS 

***************************** find and allocate free block 

HE 20 3E DE JSR $DE3E get track and sector number 

121 A9 03 LDA #$03 

123 85 6F STA $6F counter 

125 A9 01 LDA #$01 

127 0D F9 02 ORA $02F9 

12A 8D F9 02 STA $02F9 

12D A5 6F LDA $6F save counter 

12F 48 PHA 

130 20 11 F0 JSR $F011 find BAM field for this track 

133 68 PLA 

134 85 6F STA $6F get counter back 

136 Bl 6D LDA ($6D),Y number of free blocks in track 

138 DO 39 BNE SF173 blocks still free? 

13A A5 80 LDA $80 track 

13C CD 85 FE CMP SFE85 18, directory track? 

13F F0 19 BEO $F15A yes, 'disk full' 

141 90 1C BCC $F15F smaller, then next lower track 

143 E6 80 INC $80 increment track number 

F145 A5 80 LDA $80 

F147 CD D7 FE CMP $FED7 36, highest track number plus one 

F14A DO El BNE SF12D no, continue searching this track 

F14C AE 85 FE LDX $FE85 18, directory track 

F14F CA DEX decrement 

F150 86 80 STX $80 save as track number 

F152 A9 00 LDA #500 

F154 85 81 STA $81 begin with sector number zero 

F156 C6 6F DEC $6F decrement counter 

F158 DO D3 BNE $F12D not yet zero, then continue 

F15A A9 72 LDA #$72 

F15C 20 C8 CI JSR SC1C8 72, "disk full' 

F15F C6 80 DEC $80 decrement track number 

F161 DO CA BNE $F12D not yet 0. continue in this track 

F163 AE 85 FE LDX SFE85 18, directory track 

F166 E8 INX increment 
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F167 


86 


80 




STX 


S80 


F169 


A9 


00 




LDA 


#$00 


F16B 


85 


81 




STA 


S81 


F16D 


C6 


6F 




DEC 


$6F 


F16F 


DO 


BC 




BNE 


SF12D 


F171 


FO 


E7 




BEQ 


$F15A 


F173 


A5 


81 




LDA 


$81 


F175 


18 






CLC 




F176 


65 


69 




ADC 


$69 


F178 


85 


81 




STA 


$81 


F17A 


A5 


80 




LDA 


$80 


F17C 


20 


4B 


F2 


JSR 


SF24B 


F17F 


8D 


4E 


02 


STA 


$024E 


F182 


8D 


4D 


02 


STA 


S024D 


F185 


C5 


81 




CMP 


$81 


F187 


BO 


OC 




BCS 


$F195 


F189 


38 






SEC 




F18A 


A5 


81 




LDA 


$81 


F1BC 


ED 


4E 


02 


SBC 


S024E 


F18F 


85 


81 




STA 


$81 


F191 


FO 


02 




BFO 


$F195 


F193 


C6 


81 




DEC 


$81 


F195 


20 


FA 


Fl 


JSR 


SF1FA 


F198 


FO 


03 




BEQ 


SFl^D 


F19A 


4C 


90 


EF 


J MP 


$EF90 


F19D 


A9 


00 




LDA 


#$00 


F19F 


85 


81 




STA 


$81 


F1A1 


20 


FA 


Fl 


JSR 


$F1FA 


F1A4 


DO 


F4 




BNE 


$F19A 


F1A6 


4C 


F5 


Fl 


J MP 


$F1F5 


***************************** 


F1A9 


A9 


01 




LDA 


#$01 


F1AB 


OD 


F9 


02 


ORA 


$02F9 


F1B1 


A5 


86 




LDA 


$86 


F1B3 


48 






PHA 




F1B4 


49 


01 




LDA 


#$01 


F1B6 


85 


86 




STA 


$86 


F1B8 


AD 


85 


FE 


LDA 


SFE85 


F1BB 


38 






SEC 




F1BC 


E5 


86 




SBC 


$86 


F1BE 


85 


80 




STA 


$80 


F1C0 


90 


09 




BCC 


SF1CB 


F1C2 


FO 


07 




BEQ 


SF1CB 


F1C4 


20 


11 


FO 


JSR 


$F011 


F1C7 


Bl 


6D 




LDA 


($6D) ,Y 


F1C9 


DO 


IB 




BNE 


$F1E6 


F1CB 


AD 


85 


FF 


LDA 


$FE85 


F1CE 


18 






CLC 




F1CF 


65 


86 




ADC 


$86 


F1D1 


85 


80 




STA 


$80 


F1D3 


E6 


86 




INC 


S86 


F1D5 


CD 


D7 


FE 


CMP 


SFED7 


F1D8 


90 


05 




BCC 


SF1DF 



save as track number 

begin with sector zero 
decrement counter 
not yet zero, then continue 
else 'disk full' 

) 

sector number 

plus step width (10) 

as new number 

track number 

get maximum sector number 

and save 

greater than selected sector I? ' 

yes , 

else | 

sector number 

minus maximum sector number 

save as new sector number 

zero? 

else decrement sector no. by oni. 

check BAH, find free sector 

not found? 

allocate block in BAM 

sector zero j 

find free sector j 

found? i 

no, 'dir sector' :| 

find free sector and allocate 



track counter 

18, directory track 

minus counter 

save as track number 

result <= zero? 

then try top half of dir 

find BAM field for this track 

no. of free blocks in this trac) 

free blocks exist 

18, directory track 

plus counter 

save as track number 

increment counter 

36, max track number plus one 

smaller, then ok 
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F242 


68 






PLA 


F243 


85 


6F 




STA $6F 


F245 


60 






RTS 


F246 


A9 


71 




LDA #$71 


F248 


20 


45 


E6 


JSR $E645 


a**************************** 


F24B 


AE 


D6 


FE 


LDX $FED6 


F2 4E 


DD 


D6 


FE 


CMP $FED6,X 


F251 


CA 






DEX 


F252 


BO 


FA 




BCS $F24E 


F254 


BD 


Dl 


FE 


LDA SFED1,X 


F257 


60 






RTS 



71 , 'dir error' 

establish # of sectors per track 
4 different values 
track number 

not greater? 

get number of sectors 



F258 



60 



RTS 



a***************************** 



F259 


A9 


6F 




LDA 


#S6F 


F25B 


8D 


02 


1C 


STA 


$1C02 


F25E 


29 


F0 




AND 


#$F0 


F260 


8D 


00 


1C 


STA 


$1C00 


F263 


AD 


OC 


1C 


LDA 


sicoc 


F266 


29 


FE 




AND 


#$FE 


F268 


09 


0E 




ORA 


#S0E 


F26A 


09 


E0 




ORA 


#$E0 


F26C 


8D 


OC 


1C 


STA 


$1C0C 


F26F 


A9 


41 




LDA 


#$41 


F271 


8D 


0B 


1C 


STA 


S1C0B 


F274 


A9 


00 




LDA 


#$00 


F276 


8D 


06 


1C 


STA 


$1C06 


F279 


A9 


3A 




LDA 


#$3A 


F27B 


8D 


07 


1C 


STA 


S1C07 


F27E 


8D 


05 


1C 


STA 


$1C05 


F281 


A9 


7F 




LDA 


#$7F 


F283 


8D 


0E 


1C 


STA 


$1C0E 


F286 


A9 


CO 




LDA 


#$C0 


F288 


8D 


0D 


1C 


STA 


S1C0D 


F28B 


8D 


OE 


1C 


STA 


S1C0E 


F28E 


A9 


FF 




LDA 


#$FF 


F290 


85 


3E 




STA 


$3E 


F292 


85 


51 




STA 


$51 


F294 


A9 


08 




LDA 


#$08 


F296 


85 


39 




STA 


$39 


F298 


A9 


07 




LDA 


#$07 


F29A 


85 


47 




STA 


$47 


F29C 


A9 


05 




LDA 


#$05 


F29E 


85 


62 




STA 


$62 


F2A0 


A9 


FA 




LDA 


#$FA 


F2A2 


85 


63 




STA 


$63 


F2A4 


A9 


C8 




LDA 


#$C8 


F2A6 


85 


64 




STA 


$64 


F2A8 


A9 


04 




LDA 


#$04 


F2AA 


85 


5E 




STA 


$5E 


F2AC 


A9 


04 




LDA 


#$04 


F2AE 


85 


6F 




STA 


$6F 



initialize disk controller 
bit 4 (write prot) & 7 (SYNC) 
data direction register port B 

port B, control port 
PCR, control register 



timer 1 free running, enable 
port A latch 
timer 1 lo latch 

timer 1 hi latch 
timer 1 hi 

erase IRQs 



IER, allow interrupts 



track counter for formatting 

8 

constants for block header 

7 

constants for data block 



pointer $62/$63 to $FA05 
200 
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a***************************** 



F2B0 
F2B1 
F2B3 
F2B6 
F2B9 
F2BB 
F2BE 
F2C0 
F2C3 
F2C5 
F2C7 
F2C9 
F2CA 
F2CD 
F2CF 
F2D1 
F2D3 
F2D5 

F2D8 
F2D9 
F2DB 
F2DD 
F2DF 
F2E2 
F2E4 
F2E6 

F2E9 
F2EB 
F2ED 
F2EE 
F2F0 

F2F3 
F2F4 
F2F6 

F2F9 
F2FB 
F2FD 
F2FF 
F301 
F304 
F306 
F308 
F30A 
F30C 
F30F 
F311 
F313 
F315 
F317 



BA 

86 49 

AD 04 1C 

AD 0C 1C 

09 0E 

8D 0C 1C 

A0 05 

B9 00 00 

10 2E 
C9 DO 
DO 04 
98 

4C 70 F3 

29 01 
F0 07 

84 3F 
A9 OF 

4C 69 F9 

AA 

85 3D 
C5 3E 
FO OA 

20 7E F9 

A5 3D 

85 3E 

4C 9C F9 

A5 20 

30 03 
OA 

10 09 

4C 9C F9 

88 

10 CA 

4C 9C F9 

A9 20 

85 20 

AO 05 

84 3F 

20 93 F3 

30 1A 

C6 3F 

1(1 F7 

A4 41 

20 95 F3 

A5 42 

8 5 4A 

06 4A 

A9 60 

85 20 



TSX 
STX 
LDA 
LDA 
ORA 
STA 
LDY 
LDA 
BPL 
CMP 
BNE 
TYA 
JMP 
AND 
BEO 
STY 
LDA 
JMP 

TAX 

STA 
CMP 
BEO 
JSR 
LDA 
STA 
JMP 

LDA 
BMI 
ASL 
BPL 
JMP 

DEY 
BPL 
JMP 

LDA 
STA 
LDY 
STY 
JSR 
BMI 
DEC 
BPL 
LDY 
JSR 
LDA 
STA 
ASL 
LDA 
STA 



$49 

$1C04 

S1C0C 

#$0E 

sicoc 

#$05 
$0000, Y 
$F2F3 
#SD0 
$F2CD 

$F370 

#$01 

$F2D8 

$3F 

#$0F 

$F969 



$3D 

$3E 

$F2E9 

$F97E 

$3D 

S3E 

$F99C 

$20 

$F2F0 

A 

$F2F9 

SF99C 



$F2C0 
$F99C 

#$20 

$20 

#$05 

S3F 

$F393 

SF320 

S3F 

SF301 

$41 

$F395 

$42 

$4A 

$4A 

#$60 

$20 



IRO routine for disk controller 

save stack pointer 

erase interrupt flag from timer 



command for buffer Y? 

no 

exec, code for program in buffer 

no 

execute program in buffer 
isolate drive number 
drive zero? 

else 

74, 'drive not ready' 



motor running? 

yes 

turn drive motor on 



set flag 
to job loop 



head transport programmed? 



to job loop 



check next buffer 
to job loop 



program head transport 

initialize buffer counter 

set pointer in buffer 

command for buffer? 

decrement counter 

check next buffer 

buffer number 

set pointer in buffer 

track difference for last job 

as counter for head transport 

set flag for head transport 
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F1DA 


A9 


67 




LDA 


#$67 




FlDC 


20 


45 


E6 


JSR 


$E645 


67, 'illegal track or sector' 


F1DF 


20 


11 


FO 


JSR 


$F011 


find BAM field for this track 


F1E2 


Bl 


6D 




LDA 


($6D) ,Y 


no. of free blocks in this track 


F1E4 


F0 


D2 




BEO 


$F1BB 


no more free blocks? 


F1E6 


68 






PLA 






F1E7 


85 


86 




STA 


$86 




F1E9 


A9 


00 




LDA 


#$00 




F1EB 


85 


81 




STA 


$81 


sector 


F1ED 


20 


FA 


Fl 


JSR 


$F1FA 


find free sector 


FIFO 


F0 


03 




BEO 


SF1F5 


not found? 


F1F2 


4C 


90 


EF 


JMP 


$EF90 


allocate block in BAM 


F1F5 


A9 


71 




LDA 


#$71 




F1F7 


20 


45 


E6 


JSR 


SE645 


71, 'dir error' 


****************************** 


find free sectors in actual track 


FIFA 


20 


11 


FO 


JSR 


SF011 


find BAM field for this treck 


FlFD 


98 






TYA 




points to # of free blocks 


FIFE 


48 






PHA 






F1FF 


20 


20 


F2 


JSR 


$F220 


verify BAM 


F202 


A5 


80 




LDA 


$80 


track 


F204 


20 


4B 


F2 


JSR SF24B 


get max # of sectors of the track 


F207 


8D 


4E 


02 


STA 


S024E 


save 


F20A 


68 






PLA 






F20B 


85 


6F 




STA 


$6F 


save pointer 


F20D 


A5 


81 




LDA 


$81 


compare sector 


F20F 


CD 


4E 


02 


CMP 


$024E 


with maximum number 


F212 


B0 


09 




BCS 


$F21D 


greater than or equal to? 


F214 


20 


D5 


EF 


JSR 


$EFD5 


get bit number of sector 


F217 


DO 


06 




BNE 


$F21F 


sector free? 


F219 


E6 


81 




INC 


$81 


increment sector number 


F21B 


DO 


FO 




BNE 


$F20D 


and check if free 


F21D 


A9 


00 




LDA 


#$00 


no sectors free 


F21F 


60 






RTS 






***** 


******** 




************** 


verify no. of free Dlocks in BAM 


F220 


A5 


6F 




LDA 


$6F 




F222 


48 






PHA 






F223 


A9 


00 




LDA 


#$00 




F225 


85 


6F 




STA 


$6F 


counter to zero 


F2 27 


AC 


86 


FE 


LDY 


$FE86 


4, no. of bytes per track in BAM 


F22A 


88 






DEY 






F2 2B 


A2 


07 




LDX 


#$07 




F22D 


Bl 


6D 




LDA 


($6D) ,Y 




F22F 


3D 


E9 


EF 


AND 


$EFE9,X 


isolate bit 


F232 


FO 


02 




BEO 


SF236 




F234 


E6 


6F 




INC 


$6F 


increment counter of free sectors 


F236 


CA 






DEX 






F237 


10 


F4 




BPL 


SF22D 




F239 


88 






DEY 






F23A 


DO 


EF 




BNE 


$F22B 




F23C 


Bl 


6D 




LDA 


( S6D) ,Y 


compare with number on diskette 


F23E 


C5 


6F 




CMP 


$6F 




F240 


DO 


04 




BNE 


$F246 


not equal, then error 
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F319 


Bl 


32 




LDA 


($32) ,Y 


F31B 


85 


22 




STA 


S22 


F31D 


4C 


9C 


F9 


JMP 


SF99C 


F320 


29 


01 




AND 


#$01 


F322 


C5 


3D 




CMP 


S3D 


F324 


DO 


EO 




BNE 


$F306 


F326 


A5 


22 




LDA 


S22 


F328 


FO 


12 




BEO 


$F33C 


F3 2A 


38 






SEC 




F32B 


Fl 


32 




SBC 


(S32),Y 


F32D 


FO 


OD 




BEP 


$F33C 


F32F 


49 


FF 




EOR 


#$FF 


F331 


85 


42 




STA 


$42 


F333 


E6 


42 




INC 


$42 


F335 


A5 


3F 




LDA 


$3F 


F337 


85 


41 




STA 


$41 


F339 


4C 


06 


F3 


JMP 


$F306 


E33C 


A2 


04 




LDX 


#$04 


F33E 


Bl 


32 




LDA 


($32) ,Y 


F340 


85 


40 




STA 


$40 


F342 


DD 


D6 


FE 


CMP 


$FED6,X 


F345 


CA 






DEX 




F346 


BO 


FA 




BCS 


SF342 


F348 


8D 


Dl 


FE 


LDA 


$FED1,X 


F34R 


85 


43 




STA 


S43 


F34D 


8A 






TXA 




F34E 


OA 






ASL 


A 


F34F 


OA 






ASL 


A 


F350 


OA 






ASL 


A 


F351 


OA 






ASL 


A 


F352 


OA 






ASL 


A 


F353 


85 


44 




STA 


$44 


F355 


AD 


00 


1C 


LDA 


$1C00 


F358 


29 


9F 




AND 


#$9F 


F35A 


05 


44 




ORA 


$44 


F35C 


8D 


00 


1C 


STA 


$1C00 


F3 5F 


A6 


3D 




LDX 


$3D 


F361 


A5 


45 




LDA 


$45 


F363 


C9 


40 




CMP 


#$40 


F365 


FO 


15 




BEO 


$F37C 


F367 


C9 


60 




CMP 


#$60 


F369 


FO 


03 




BEO 


$F36E 


F36B 


4C 


Bl 


F3 


JMP 


$F3B1 


ft**************************** 


F36E 


A5 


3F 




LDA 


S3F 


F370 


18 






CLC 




F371 


69 


03 




ADC 


#$03 


F373 


85 


31 




STA 


$31 


F375 


A9 


00 




LDA 


#$00 


F3 77 


85 


30 




STA 


$30 


F379 


6C 


30 


00 


JMP 


($0030) 



get track number from buffer 

to ]Ob loop 

isolate drive number 

equal drive number of last ]ob? 

no 

last track number 

equal zero? 

equal track number of this ]ob? 
yes 



drive number 



track number of the job 

save 

compare with max track number 

greater? 

get # of sectors per track 

and save 



a***************************** 



gives 0, 32, 64, 96 

generate control byte for notor 

command code 

position head? 

yes 

command code for prg execution? 

yes 

read block header 

execute program in buffer 
buffer number 

plus 3 

equals address of buffer 

execute program in buffer 

position head 
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F37C 


A9 


60 




LDA 


#$60 




F37E 


85 


20 




STA 


$20 


set flag for head transport 


F380 


AD 


00 


1C 


LDA 


$1C00 




F383 


29 


FC 




AND 


f$FC 


turn stepper motors on 


F385 


8D 


00 


1C 


STA 


$1C00 




F388 


A9 


A4 




LDA 


#$A4 


164 


F38A 


85 


4A 




STA 


$4A 


step counter for head transport 


F38C 


A9 


01 




LDA 


#$01 




F38E 


85 


22 




STA 


$22 


track number 


F390 


4C 


69 


F9 


JMP 


$F969 


ok 


****************************** 


initialize pointer in buffer 


F393 


A4 


3F 




LDY 


$3F 


buffer number 


F395 


B9 


00 


00 


LDA 


$0000, Y 


command code 


F398 


48 






PHA 




save 


F399 


10 


10 




BPL 


$F3AB 




F39B 


29 


78 




AND 


#$78 


erase bits 0,1,2. and 7 


F39D 


85 


45 




STA 


$45 




F39F 


98 






TYA 




buffer number 


F3A0 


0A 






ASL 


A 


times two 


F3A1 


69 


06 




ADC 


#$06 


plus 6 


F3A3 


85 


32 




STA 


$32 


equals pointer to actual buffer 


F3A5 


98 






TYA 




buffer number 


F3A6 


18 






CLC 






F3A7 


69 


03 




ADC 


#$03 


plus 3 


F3A9 


85 


31 




STA 


$31 


equals buffer address hi 


F3AB 


A0 


00 




LDY 


#$00 




F3AD 


84 


30 




STY 


$30 


buffer address lo 


F3AF 


68 






PLA 




get command code back 


F3B0 


60 






RTS 






****************************** 


read block header, verify ID 


F3B1 


A2 


5A 




LDX 


#$5A 


90 


F3B3 


86 


4B 




STX 


S4B 


counter 


F3B5 


A2 


00 




LDX 


#$00 




F3B7 


A9 


52 




LDA 


#$52 


82 


F3B9 


85 


24 




STA 


$24s 




F3BB 


20 


56 


F5 


JSR 


$F556 


wait for SYNC 


F3BE 


50 


FE 




BVC 


$F3BE 


byte ready? 


F3C0 


B8 






CLV 






F3C1 


AD 


01 


1C 


LDA 


$1C01 


data from read head 


F3C4 


C5 


24 




CMP 


$24 




F3C6 


DO 


3F 




BNE 


$F407 


20, 'read error 1 


F3C8 


50 


FE 




BVC 


$F3C8 


byte ready? 


F3CA 


B8 






CLV 






F3CB 


AD 


01 


1C 


LDA 


S1C01 


data byte from disk(block heade 


F3CE 


95 


25 




STA 


$25, X 


save 7 bytes 


F3D0 


E8 






I NX 






F3D1 


E0 


07 




CPX 


#$07 




F3D3 


DO 


F3 




BNE 


SF3C8 


continue reading 


F3D5 


20 


97 


F4 


JSR 


$F497 




F3D8 


A0 


04 




LDY 


#$04 


4 bytes plus parity 


F3DA 


A9 


00 




LDA 


#$00 




F3DC 


59 


16 


00 


EOR 


$0016, Y 


form checksum for header 


F3DF 


88 






DEY 
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F3E0 


10 


FA 




BPL 


SF3DC 


F3E2 


C9 


00 




CMP 


#$00 


F3E4 


DO 


38 




BNE 


$F41E 


F3E6 


AK 


3E 




LDX 


$3E 


F3E8 


A4 


18 




LDA 


$18 


F3EA 


95 


22 




STA 


$22, X 


F3EC 


A5 


45 




LDA 


$45 


F3EE 


C9 


30 




CMP 


#$30 


F3F0 


F0 


IE 




BEO 


SF410 


F3F2 


A5 


3E 




LDA 


$3E 


F3F4 


0A 






ASL 


A 


F3F5 


A8 






TAY 




F3F6 


B9 


12 


00 


LDA 


$0012, Y 


F3F9 


C5 


16 




CMP 


$16 


F3FB 


DO 


IE 




BNE 


$F41B 


F3FD 


B9 


13 


00 


LDA 


$0013, Y 


F400 


C5 


17 




CMP 


$17 


F402 


DO 


17 




BNE 


$F41B 


F404 


4C 


23 


F4 


J HP 


$F423 



parity ok? 

27, 'read error' 

drive number 

track number of header 

use as actual track number 

code for 'preserve header' 
preserve header 



compare with ID1 



compare with ID2 

<>, then 29, 'disk id mismatch' 



F407 C6 4B DEC $4B 

F409 DO B0 BNE $F3BB 

F40B A9 02 LDA #$02 

F40D 20 69 F9 JSR SF969 



decrement counter for attempts 

and try again 

else 

20, 'read error' 



****************************** 

LDA $16 
STA $12 
LDA $17 
STA $13 
LDA #$01 
.BYTE $2C 
LDA #S0B 
.BYTE S2C 
LDA #$09 
F420 4C 69 F9 JMP $F969 



F410 


A5 


16 


F412 


85 


12 


F414 


A5 


17 


F416 


85 


13 


F418 


A9 


01 


F41A 


2C 




F41B 


A9 


0B 


F41D 


2C 




F41E 


A9 


09 



preserve block header 
ID1 

and ID2 

preserve 

ok 

29, 'disk id mismatch' 

27, 'write error' 
done 



****************************** 



F423 


A9 


7F 


LDA 


#S7F 


F425 


85 


4C 


STA 


$4C 


F427 


A5 


19 


LDA 


$19 


F4 29 


18 




CLC 




F4 2A 


69 


02 


ADC 


#$02 


F42C 


C5 


43 


CMP 


$43 


F42E 


90 


02 


BCC 


SF432 


F430 


E5 


43 


SBC 


$43 


F432 


85 


4D 


STA 


S4D 


F434 


A2 


05 


LDX 


#$05 


F436 


86 


3F 


STX 


$3F 


F438 


A2 


FF 


LDX 


#$FF 


F43A 


20 


93 F3 


JSR 


$F393 


F43D 


10 


44 


BPL 


$F483 


F43F 


85 


44 


STA 


$44 


F441 


29 


01 


AND 


#$01 


F443 


C5 


3E 


CMP 


$3E 



set buffer ptr for disk control. 
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F4A9 


20 


E6 F7 


JSR 


$F7E6 


F4AC 


A5 


55 


LDA 


S55 


F4AE 


85 


18 


STA 


$18 


F4B0 


A5 


54 


LDA 


$54 


F4B2 


85 


19 


STA 


$19 


F4B4 


A5 


53 


LDA 


$53 


F4B6 


85 


1A 


STA 


$1A 


F4B8 


20 


F6 F7 


JSR 


SF7E6 


F4BB 


A5 


52 


LDA 


$52 


F4BD 


85 


17 


STA 


$17 


F4BF 


A5 


53 


LDA 


$53 


F4C1 


85 


16 


STA 


$16 


F4C3 


68 




PLA 




F4C4 


85 


31 


STA 


$31 


F4C6 


68 




PLA 




F4C7 


85 


30 


STA 


$30 


F4C9 


60 




RTS 





get pointer S30/S31 back 



****************************** 
F4CA C9 00 CMP #$00 
F4CC F0 03 BEO SF4D1 
F4CE 4C 6E F5 JMP SF56E 



command code for 'read'? 

yes 

continue checking command code 



F4D1 


20 


0A 


F5 


JSR 


SF50A 


find beginning of data block 


F4D4 


50 


FE 




BVC 


$F4D4 


byte ready? 


F4D6 


B8 






CLV 






F4D7 


AD 


01 


1C 


LDA 


S1C01 


get data byte 


F4DA 


91 


30 




STA 


(S30),Y 


and write in buffer 


F4DC 


C8 






INY 




256 times 


F4DD 


DO 


F5 




BNE 


SF4D4 




F4DF 


A0 


BA 




LDY 


#$BA 




F4E1 


50 


FE 




BVC 


SF4E1 


byte ready? 


F4E3 


B8 






CLV 






F4E4 


AD 


01 


1C 


LDA 


S1C01 


read bytes 


F4E7 


99 


00 


01 


STA 


$0100, Y 


from $1BA to $1FF 


F4EA 


C8 






INY 






F4EB 


DO 


F4 




BNE 


SF4F1 




F4ED 


20 


E0 


F8 


JSR 


SF8E0 




F4F0 


A5 


38 




LDA 


$38 




F4F2 


C5 


47 




CMP 


S47 


equal 7, beginning of data bio 


F4F4 


F0 


05 




BEO 


SF4FB 


yes 


F4F6 


A9 


04 




LDA 


#$04 


22, 'read error' 


F4F8 


4C 


69 


F9 


JMP 


$F969 


error termination 


F4FB 


20 


E9 


F5 


JSR 


SF5E9 


calculate parity of data block 


F4FE 


C5 


3A 




CMP 


$3A 


agreement? 


F500 


F0 


03 




BEO 


SF505 


yes 


F502 


A9 


05 




LDA 


#$05 


23, 'read error' 


F504 


2C 






.BYTE S2C 




F505 


A9 


01 




LDA 


#$01 


ok 


F507 


4C 


69 


F9 


JMP 


SF969 


prepare error message 


****************************** 


find start of data block 


F50A 


20 


10 


F5 


JSR 


SF510 


read block header 


F50D 


4C 


56 


F5 


JMP 


$F556 


wait for SYNC 
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****************************** read block header 

F510 A5 3D LDA $3D drive number 

F512 OA ASL A 

F513 AA TAX 

F514 B5 12 LDA $12, X ID1 

F516 85 16 STA $16 save 

F518 B5 13 LDA $13, X ID2 

F51A 85 17 STA $17 save 

F51C AO 00 LDY #$00 

F51E Bl 32 LDA ($32),Y get track and 

F520 85 18 STA $18 

F522 C8 INY 

F523 Bl 32 LDA ($32), Y sector number from buffer 

F525 85 19 STA $19 

F527 A9 00 LDA #$00 

F529 45 16 FOR S16 

F52B 45 17 EOR $17 calculate parity for block header 

F52D 45 18 EOR $18 

F52F 45 19 EOR $19 

F531 85 1A STA $1A and save 

F533 20 34 F9 JSR $F934 

F536 A2 5A LDX #$5A 90 attempts 

F538 20 56 F5 JSR $F556 wait for SYNC 

F53B A0 00 LDY #$00 

F53D 50 FE BVC $F35D byte ready? 

F53F B8 CLV 

F540 AD 01 1C LDA S1C01 read data from block header 

F543 D9 24 00 CMP $0024, Y compare with saved data 

F546 DO 06 BNE SF54E not the same, try again 

F548 C8 INY 

F549 CO 08 CPY #$08 8 bytes read? 

F54B DO F0 BNE $F53D no 

F54D 60 RTS 

F54E CA DEX decrement counter 

F54F DO E7 BNE $F538 not yet zero? 

F551 A9 02 LDA #$02 

F553 4C 69 F9 JMP SF969 20, 'read error' 

****************************** wa it for SYNC 

LDA #$D0 208 

18 STA $1805 start timer 

LDA #$03 error code 
18 BIT $1805 

BPL $F553 timer run down, then 'read error' 

1C BIT S1C00 SYNC signal 

BUI SF55D not yet found? 

1C LDA S1C01 read byte 

CLV 

LDY #$00 

RTS 

****************************** 

F56E C9 10 CMP #$10 command code for 'write' 
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F556 


A9 


DO 


F558 


8D 


05 


F55B 


A9 


03 


F55D 


2C 


05 


F560 


10 


Fl 


F562 


2C 


00 


F565 


30 


F6 


F567 


AD 


10 


F56A 


B8 




F56B 


A0 


00 


F56D 


60 





Anatomy of the 1541 Disk Drive 



F445 DO 3C BNE SF483 

F447 AO 00 LDY #SO0 

F449 Bl 32 LDA ($32) ,Y 

F44B C5 40 CMP S40 

F44D DO 34 BNE $F483 

F44F A5 45 LDA $45 command code 

F451 C9 60 CMP #$60 

F453 F0 0C BEO SF461 

F455 A0 01 LDY #$01 

F457 38 SEC 

F458 Bl 32 LDA ($32) ,Y 

F45A E5 4D SBC $4D 

F45C 10 03 BPL $F461 

F45E 18 CLC 

F45F 65 43 ADC $43 

F461 C4 4C CMP S4C 

F463 B0 IE BCS $F483 

F465 48 PHA 

F466 A5 45 LDA $45 

F468 F0 14 BEO SF47E 

F46A 68 PLA 

F46B C9 09 CMP #$09 

F46D 90 14 BCC $F483 

F46F C9 0C CMP #$0C 

F471 B0 10 BCS $F483 

F473 85 4C STA $4C 

F475 A5 3F LDA $3F 

F477 AA TAX 

F478 69 03 ADC #$03 

F47A 85 31 STA $31 

F47C DO 05 BNE $F483 

F47E 68 PLA 

F47F C9 06 CMP #$06 

F481 90 F0 BCC SF473 

F483 C6 3F DEC S3F 

F485 10 B3 BPL SF43A 

F487 8A TXA 

F488 10 03 BPL SF48D 

F48A 4C 9C F9 JMP $F99C to job loop 

F48D 86 3F STX $3F 

F48F 20 93 F3 JSR SF393 get buffer number 

F492 A5 45 LDA $45 command code 

F494 4C CA F4 JMP SF4CA continue checking 

LDA $30 

PLA save pointer S30/S31 

LDA $31 

PHA 

LDA #$24 

STA $30 

LDA #$00 pointer S30/$31 to S24 

STA S31 

LDA #S00 

STA $34 
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F497 


A5 


30 


F499 


48 




F49A 


A5 


31 


F49C 


48 




F49D 


A9 


24 


F49F 


85 


30 


F4A1 


A9 


00 


F4A3 


85 


31 


F4A5 


A9 


00 


F4A7 


85 


34 
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F570 


FO 


03 




BEO 


$F575 


F57 2 


4C 


91 


F6 


JMP 


SF691 


************************KX*** 


F575 


20 


E9 


F5 


JSR 


SF5E9 


F57B 


85 


3A 




STA 


$3A 


F57A 


AD 


00 


1C 


LDA 


S1C00 


F57D 


29 


10 




AND 


#$10 


F57F 


DO 


05 




BNE 


SF586 


F581 


A9 


08 




LDA 


#$08 


F583 


4C 


69 


F9 


JMP 


SF969 


F586 


20 


8F 


F7 


JSR 


$F78F 


F589 


20 


10 


F5 


JSR 


SF510 


F58C 


A2 


09 




LDX 


#$09 


F58E 


50 


FE 




BVC 


SF58E 


F590 


B8 






CLV 




F591 


CA 






DEX 




F592 


DO 


FA 




BNE 


SF58E 


F594 


A9 


FF 




LDA 


#$FF 


F596 


8D 


03 


1C 


STA 


S1C03 


F599 


AD 


OC 


1C 


LDA 


S1C0C 


F59C 


29 


IF 




AND 


#$1F 


F59E 


09 


CO 




ORA 


#$C0 


F5A0 


8D 


OC 


1C 


STA 


S1C0C 


F5A3 


A9 


FF 




LDA 


#$FF 


F5A5 


A2 


05 




LDX 


#$05 


F5A7 


8D 


01 


1C 


STA 


S1C01 


F5AA 


B8 






CLV 




F5AB 


50 


FF 




BVC 


SF5AB 


F5AD 


B8 






CLV 




F5AE 


CA 






DEX 




F5AF 


DO 


FA 




BNE 


SF5AB 


F5B1 


A0 


BB 




LDY 


#$BB 


F5B3 


B9 


00 


01 


LDA 


$0100, Y 


F5B6 


50 


FE 




BVC 


SF5B6 


F5B8 


B8 






CLV 




F5B9 


8P 


01 


1C 


STA 


S1C01 


F5BC 


C8 






INY 




F5BD 


DO 


F4 




BNE 


SF5B3 


F5BF 


Bl 


30 




LDA 


($30) ,Y 


F5C1 


50 


FE 




BVC 


SF5C1 


F5C3 


B8 






CLV 




F5C4 


8D 


01 


1C 


STA 


S1C01 


F5C7 


C8 






INY 




F5C8 


DO 


F5 




BNE 


$F5BF 


F5CA 


50 


FE 




BVC 


SF5CA 


F5CC 


AD 


OC 


1C 


LDA 


S1C0C 


F5CF 


09 


EO 




ORA 


#$E0 


F5D1 


8D 


OC 


1C 


STA 


$1C0C 


F5D4 


A9 


00 




LDA 


#$00 


K5D6 


8D 


03 


1C 


LDA 


S1C03 


F5D9 


20 


F2 


F5 


JSP 


SF5F2 


F5PC 


A4 


3F 




LDY 


$3F 


F5DE 


B9 


00 


00 


LDA 


$0000, Y 



yes 

continue checking command code; 

write data block to disk 

calculate parity for buffer 

and save 

read port B 

isolate bit for 'write protect' 

not set, ok 

26, 'write protect' 



find block header 
byte ready? 



port A (write/read head) to 
to output 

change PCR to output 



write $FF to disk 5 times 
as SYNC characters 

bytes $1BB to $1FF to disk 
write data buffer (256 bytes) 



byte ready? 

PCR to input again 

port A (read/write head) to md 
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F5E1 49 30 
F5E3 99 00 00 
F5E6 4C Bl F3 



EOR #S30 
STA $0000, Y 
JMP SF3B1 



****************************** 

F5E9 A9 00 LDA #$00 

F5EB A8 TAY 

F5EC 51 30 EOR ($30) ,Y 

F5EE C8 INY 

F5EF DO FB BNE SF5EC 

F5F1 60 RTS 



convert command code 'write' 
to 'verify' 

calculate parity for data l-uffer 



F5F2 


A9 


00 


LDA #$00 


F5F4 


85 


2E 


STA S2E 


F5F6 


85 


30 


STA $30 


F5F8 


85 


4F 


STA $4F 


F5FA 


A5 


31 


LDA $31 


F5FC 


85 


4E 


STA S4E 


F5FE 


A9 


01 


LDA #$01 


F600 


85 


31 


STA $31 


F602 


85 


2F 


STA $2F 


F604 


A9 


BB 


LDA #$BB 


F606 


85 


34 


STA $34 


F608 


85 


36 


STA $36 


F60A 


20 


E6 F7 


JSP SF7E6 


F60D 


A5 


52 


LDA $52 


F60F 


85 


38 


STA $38 


F611 


A4 


36 


LDY $36 


F613 


A5 


53 


LDA S53 


F615 


91 


2E 


STA (S2E) ,Y 


F617 


C8 




INY 


F618 


A5 


54 


LDA $54 


F61A 


91 


2E 


STA ($2E) ,Y 


F61C 


C8 




INY 


F61D 


A5 


55 


LDA $55 


F61F 


91 


2F 


STA ($2F) ,Y 


F6 21 


C8 




INY 


F622 


84 


36 


STY $36 


F624 


20 


E6 F7 


JSP SF7E6 


F627 


A4 


36 


LDY $36 


F629 


A5 


52 


LDA S52 


F62B 


91 


2E 


STA (S2E) ,Y 


F62D 


C8 




INY 


F62E 


A5 


53 


LDA $53 


F630 


91 


2E 


STA ( $ 2 E ) , Y 


F632 


C8 




INY 


F633 


F0 


0E 


BEO SF643 


F635 


A5 


54 


LDA $54 


F637 


91 


2E 


STA ( S 2 E ) , Y 


F639 


C8 




INY 


F6 3A 


A5 


55 


LDA $55 


F63C 


91 


2E 


STA (S2E) ,Y 


F63E 


C8 




INY 


F63F 


84 


36 


STY $36 


F641 


DO 


El 


BNE SF624 
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F643 


A5 


54 


LDA 


$54 




F645 


91 


30 


STA 


(S30) 


Y 


F647 


C8 




INY 






F648 


A5 


55 


LDA 


$55 




F64A 


91 


30 


STA 


($30) 


Y 


F64C 


C8 




INY 






F64D 


84 


36 


STY 


$36 




F64F 


20 


E6 F7 


JSR 


$F7E6 




F652 


A4 


36 


LDY 


$36 




F654 


A5 


52 


LDA 


$52 




F656 


91 


30 


STA 


($30) 


Y 


F658 


C8 




INY 






F659 


A5 


53 


LDA 


$53 




F65B 


91 


30 


STA 


($30) 


Y 


F65D 


C8 




INY 






F65E 


A5 


54 


LDA 


$54 




F660 


91 


30 


STA 


($30) 


Y 


F662 


C8 




INY 






F663 


A5 


55 


LDA 


$55 




F665 


91 


30 


STA 


($30) 


Y 


F667 


C8 




INY 






F668 


84 


36 


STY 


$36 




F66A 


CO 


BB 


CPY 


#$BB 




F66C 


90 


El 


BCC 


SF64F 




F6 6E 


A9 


45 


LDA 


#$45 




F670 


85 


2E 


STA 


$2E 




F672 


A5 


31 


LDA 


$31 




F674 


85 


2F 


STA 


$2F 




F676 


A0 


BA 


LDY 


#$BA 




F678 


Bl 


30 


LDA 


($30) 


Y 


F67A 


91 


2E 


STA 


!$2E) 


Y 


F67C 


88 




DEY 






F67D 


DO 


F9 


BNE 


SF678 




F67F 


Bl 


30 


LDA 


($30) 


Y 


F681 


91 


2E 


STA 


($2E) 


Y 


F683 


A2 


BB 


LDX 


#$BB 




F685 


BD 


00 01 


LDA 


$0100 


X 


F688 


91 


30 


STA 


($30) 


Y 


F68A 


C8 




INY 






F68B 


R8 




INX 






F68C 


DO 


F7 


BNE 


SF685 




F68E 


86 


50 


STX 


$50 




F690 


60 




RTS 







AAA*************************** 

F691 C9 20 CMP #$20 



F693 


FO 


03 




BEO 


$F698 


F6 9 5 


4C 


CA 


F6 


JMP 


$F6CA 


F698 


20 


E9 


F5 


JSR 


$F5E9 


F69B 


85 


3A 




STA 


$3A 


F69D 


20 


8F 


F7 


JSR 


SF78F 


F6A0 


20 


OA 


F5 


JSR 


SF50A 


F6A3 


AO 


BB 




LDY 


#SBB 


F6A5 


B9 


00 


01 


LDA 


$0100, Y 



command code for 'verify'? 

yes 

continue checking command code 

calculate parity for data buffet 
and save 

find start of data block 

data from buffer 
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F6A8 
F6AA 
F6AB 
F6AE 
F6B0 
F6B1 
F6B3 
F6B5 
F6B7 
F6B8 
F6BB 
F6BD 
F6BE 
F6C0 
F6C2 

F6C5 
F6C7 



50 FE 

B8 

4D 01 1C 

DO 15 

C8 

DO F2 

Bl 30 

50 FE 

B8 

4D 01 1C 

DO 08 

C8 

CO FD 

DO Fl 

4C 18 F4 

A9 O'? 

4C 69 F9 



BVC 

CLV 
EOR 
BNE 
INY 
BNE 
LDA 
BVC 
CLV 
EOR 
BNE 
INY 
CPY 
BNE 
JMP 



SF6A8 

S1C01 
SF6C5 

$F6A5 
($30) ,Y 
SF6B5 

S1C01 

$F6C5 

#$FD 

SF6B3 

SF418 



LDA #$P7 
JMP $F969 



****************************** 



F6CA 20 10 F5 
F6CD 4C 18 F4 



JSR $F510 
JMP $F418 



****************************** 



F6D0 
F6D2 
F6D4 
F6D6 
F6D8 
F6DA 
F6DC 
F6DD 
F6DE 
F6DF 
F6E0 
F6E1 
F6E4 
F6E5 
F6E6 
F6E7 
F6E9 
F6EB 
F6ED 
F6EE 
F6F1 
F6F2 
F6F4 
F6F5 
F6F7 
F6F9 
F6FB 
F6FD 
F6FE 
F700 
F702 



A9 00 

85 57 

8 5 5A 

A4 34 

A5 5 2 

29 FO 

4A 

4A 

4A 

4A 

AA 

BD 7F F7 

OA 

OA 

OA 

85 56 

A5 52 

29 OF 

AA 

BD 7F F7 

6A 

66 57 

6A 

66 57 

29 07 

05 56 

91 30 

C8 

A5 53 

29 FO 

4A 



LDA 
STA 
STA 
LDY 
LDA 
AND 
LSR 
LSR 
LSR 
LSR 
TAX 
LDA 
ASL 
ASL 
ASL 
STA 
LDA 
AND 
TAX 
LDA 
ROR 
ROR 
ROR 
ROR 
AND 
ORA 
STA 
INY 
LDA 
AND 
LSR 



#$00 

S57 

S5A 

S34 

S52 

#$F0 

A 

A 

A 

A 

$F77F,X 

A 

A 

A 

S56 

$52 

#$0F 

$F77F,X 

A 

$57 

A 

$57 

#$07 

$56 

($30) ,Y 

$53 

#$F0 

A 



byte ready? 

compare with data from disk 
not equal r tnen error 



data from buffer 



compare with data from disk 
not equal, then error 



error free termination 



25, 'write error' 



read block header 
done 



isolate hi-nibble 

and rotate to lower nibble 

as index in table 

times 8 



isolate lower nibDle 
as index in table 



in buffer 
increment buffer 

isolate upper nibble 
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F703 4A LSR A 

F704 4A LSR A shift to upper nibble 

F705 4A LSR A 

F706 AA TAX as index in table 

F707 BD 7F F7 LDA $F77F,X 

F70A OA ASL A 

F70B 05 57 ORA $57 

F70D 85 57 STA S57 

F70F A5 53 LDA $53 

F711 29 OF AND #$0F lower nibble 

F713 AA TAX as index 

F714 BD 7F F7 LDA SF77F.X 

F717 2 A ROL A 

F718 2A ROL A 

F719 2A ROL A 

F71A 2 A ROL A 

F71B 8 5 58 STA $58 

F71D 2A ROL A 

F71E 29 01 AND #%01 

F720 05 57 ORA $57 

F722 91 30 STA ($30), Y in buffer 

F724 C8 INY increment buffer 

F7 25 A5 54 LDA $54 

F727 29 F0 AND #$F0 isolate hi-nibble 

F729 4A LSR A 

F7 2A 4A LSR A 

F72B 4A LSR A 

F72C 4A LSR A 

F7 2D AA TAX 

F72E BD 7F F7 LDA $F77F,X 

F731 18 CLC 

F732 6A ROR A 

F733 05 58 ORA $58 

F735 91 30 STA ($30),Y in buffer 

F737 C8 INY increment buffer pointer 

F7 38 6A ROR A 

F739 29 80 AND #$80 

F73B 85 59 STA $59 

F73D A5 54 LDA $54 

F73F 29 OF AND #$0F lower nibble 

F7 41 AA TAX as index 

F742 BD 7F F7 LDA $F77F,X 

F7 45 0A ASL A 

F7 46 0A ASL A 

F747 29 7C AND #$7C 

F749 05 59 ORA $59 

F74B 85 59 STA $59 

F74D A5 55 LDA $55 

F74F 29 F0 AND #$F0 isolate hi-nibble 

F751 4A LSR A 

F752 4A LSR A shift to lower nibble 

F753 4A LSR A 

F754 4A LSR A 

F7 55 AA TAX as index in table 

F756 BD 7F F7 LDA $F77F,X 
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F759 


6A 




ROR 


A 






F75A 


66 


5A 


ROR 


$5A 






F75C 


6A 




ROR 


A 






F75D 


66 


5A 


ROR 


S5A 






F75F 


6A 




ROR 


A 






F760 


66 


5A 


ROR 


S5A 






F762 


29 


03 


AND 


#S03 






F764 


05 


59 


ORA 


S59 






F766 


91 


30 


STA 


($30), 


,Y 


in buffer 


F768 


C8 




INY 






increment buffer pointer 


F7 69 


DO 


04 


BNE 


SF76F 






F76B 


A5 


2F 


LDA 


S2F 






F76D 


85 


31 


STA 


$31 






F76F 


A5 


55 


LDA 


$55 






F771 


29 


OF 


AND 


#$0F 




lower nibble 


F773 


AA 




TAX 






as index 


F774 


BD 


7F F7 


LDA 


SF77F 


,x 




F777 


05 


5A 


ORA 


$5A 






F779 


91 


30 


STA 


($30), 


-Y 


in buffer 


F77B 


C8 




INY 






increment buffer pointer 


F7 7C 


84 


34 


STY 


$34 




and save 


F77E 


60 




RTS 









****************************** 
F77F 0A 0B 12 13 0E OF 16 17 
F787 09 19 1A IB 0D ID IE 15 

****************************** 



F78F 


A9 


00 


LDA 


#$00 


F791 


85 


30 


STA 


$30 


F793 


85 


2E 


STA 


$2E 


F795 


85 


36 


STA 


$36 


F797 


A9 


BB 


LDA 


#$BB 


F799 


85 


34 


STA 


$34 


F79B 


85 


50 


STA 


$50 


F79D 


A5 


31 


LDA 


$31 


F79F 


85 


2F 


STA 


$2F 


F7A1 


A9 


01 


LDA 


#$01 


F7A3 


85 


31 


STA 


$31 


F7A5 


A5 


47 


LDA 


$47 


F7A7 


85 


52 


STA 


$52 


F7A9 


A4 


36 


LDY 


$36 


F7AB 


Bl 


2E 


LDA 


($2E),Y 


F7AD 


85 


53 


STA 


$53 


F7AF 


C8 




INY 




F7B0 


Bl 


2E 


LDA 


($2E) ,Y 


F7B2 


85 


54 


STA 


$54 


F7B4 


C8 




INY 




F7B5 


Bl 


2E 


IDA 


($2E) ,Y 


F7B7 


85 


55 


STA 


$55 


F7B9 


C8 




INY 




F7BA 


84 


36 


STY 


$36 


F7BC 


20 


DO F6 


JSR 


$F6D0 


F7BF 


A4 


36 


LDY 


$36 


F7C1 


Bl 


2E 


LDA 


($2E) .1 
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F7C3 85 52 STA S52 

F7C5 C8 INY 

F7C6 FO 11 BEO SF7D9 

F7C8 Bl 2E LDA ($2E) ,Y 

F7CA 85 53 STA $53 

F7CC C8 INY 

F7CD Bl 2E LDA (S2E) ,1 

F7CF 85 54 STA $54 

F7D1 C8 INY 

F7D2 Bl 2E LDA (S2E) ,Y 

F7D4 85 55 STA S55 

F7D6 C8 INY 

F7D7 DO El BNE $F7BA 

F7D9 A5 3A LDA S3A 

F7DB 85 53 STA $53 

F7DD A9 00 LDA #$00 

F7DF 85 54 STA $54 

F7E1 85 55 STA $55 

F7E3 4C DO F6 JMP $F6D0 

F7E6 A4 34 LDY $34 

F7E8 Bl 30 LDA ($30) ,Y 

F7EA 29 F8 AND #$F8 

F7EC 4A LSR A 

F7ED 4A LSR A 

F7EE 4A LSR A 

F7EF 85 56 STA $56 

F7F1 Bl 30 LDA ($30) ,Y 

F7F3 29 07 AND #$07 

F7F5 0A ASL A 

F7F6 OA ASL A 

F7F7 8 5 57 STA $57 

F7F9 C8 INY 

F7FA DO 06 BNE SF802 

F7FC A5 4E LDA $ 4E 

F7FE 85 31 STA $31 

F800 A4 4F LDY $4F 

F802 Bl 30 LDA ($30) ,Y 

F804 29 CO AND #$C0 

F806 2A ROL A 

F807 2A ROL A 

F8 08 2 A ROL A 

F809 05 57 ORA $57 

F80B 85 57 STA $57 

F80D Bl 30 LDA ($30) ,Y 

F80F 29 3E AND #$3E 

F811 4A LSR A 

F812 85 58 STA $58 

F814 Bl 30 LDA ($30) ,Y 

F816 29 01 AND #$01 

F818 0A ASL A 

F819 0A ASL A 

F81A OA ASL A 

F81B OA ASL A 

F81C 85 59 STA $59 
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F81E C8 INY 

F81F Bl 30 LDA ($30) ,Y 

F821 29 F0 AND #SF0 

F823 4A LSR A 

F8 24 4A LSR A 

F825 4A LSR A 

F8 26 4A LSF A 

F8 27 05 59 ORA S59 

F829 85 59 STA $59 

F82B Bl 30 LDA ($30) , Y 

F82D 29 OF AND #$0F 

F8 2F 0A ASL A 

F8 30 85 5A STA $5A 

F832 C8 INY 

F833 Bl 30 LDA ($30) ,Y 

F835 29 80 AND #$80 

F837 18 CLC 

F838 2A ROL A 

F8 39 2A ROL A 

F83A 29 01 AND #$01 

F83C 05 5A ORA $5A 

F83E 85 5A STA $5A 

F840 Bl 30 LDA ($30) ,Y 

F842 29 7C AND #$7C 

F844 4A LSR A 

F845 4A LSR A 

F846 85 5B STA $5B 

F848 Bl 30 LDA ($30) ,Y 

F84A 29 03 AND #$03 

F84C 0A ASL A 

F84D 0A ASL A 

F84E 0A ASL A 

F84F 85 5C STA $5C 

F851 C8 INY 

F852 DO 06 BNE $F85A 

F854 A5 4E LDA $4E 

F8 56 85 31 STA $31 

F858 A4 4F LDY $4F 

F8 5A Bl 30 LDA ($30) ,Y 

F85C 29 E0 AND #SE0 
F85E 2A ROL A 

F85F 2A POL A 

F860 2A ROL A 

F861 2A ROL A 

F862 05 5C ORA $5C 
F864 85 5C STA $5C 

F866 Bl 30 LDA ($30) ,Y 

F868 29 IF AND #$1F 

F86A 85 5D STA $5D 

F86C C8 INY 

F86D 84 34 STY $34 

F86F A6 56 LDX $56 

F871 BD A0 F8 LDA SF8A0,X 
F874 A6 57 LDX $57 

F876 ID CO F8 ORA $F8C0,X 
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F879 


85 


52 




STA 


$52 




F87B 


A6 


58 




LDX 


$58 




F87D 


BD 


A0 


F8 


LDA 


$F8A0 


,X 


F880 


A6 


59 




LDX 


$59 




F882 


ID 


CO 


F8 


ORA 


SF8C0 


.X 


F885 


85 


53 




STA 


$53 




F887 


A6 


5A 




LDX 


$5A 




F889 


BD 


A0 


F8 


LDA 


$F8A0 


,x 


F88C 


A6 


5B 




LDX 


$5B 




F88E 


ID 


CO 


F8 


ORA 


$F8C0 


,x 


F891 


85 


54 




STA 


$54 




F893 


A6 


5C 




LDX 


$5C 




F895 


BD 


A0 


F8 


LDA 


SF8A0 


,x 


F898 


A6 


5D 




LDX 


$5D 




F89A 


ID 


CO 


F8 


ORA 


$F8C0 


,x 


F89D 


85 


55 




STA 


$55 




F89F 


60 






RTS 







F8A0 FF FF FF FF FF FF FF FF 

F8A8 FF 80 00 10 FF CO 40 50 

F8B0 FF FF 20 30 FF FO 60 70 

F8B8 FF 90 AO BO FF DO EO FF 

F8C0 FF FF FF FF FF FF FF FF 

F8C8 FF 08 00 01 FF OC 04 05 

F8D0 FF FF 02 03 FF OF 06 07 

F8D8 FF 09 OA OB FF OD OE FF 

****************************** 



F8E0 


A9 


00 


LDA 


#$00 


F8E2 


85 


34 


STA 


$34 


F8E4 


85 


2E 


STA 


$2E 


F8E6 


85 


36 


STA 


$36 


F8E8 


A9 


01 


LDA 


#$01 


F8EA 


85 


4E 


STA 


$4E 


F8EC 


A9 


BA 


LDA 


#$BA 


F8EE 


85 


4F 


STA 


$4F 


F8F0 


A5 


31 


LDA 


$31 


F8F2 


85 


2F 


STA 


$2F 


F8F4 


20 


E6 F7 


JSR 


$F7E6 


F8F7 


A5 


52 


LDA 


$52 


F8F9 


85 


38 


STA 


$38 


F8FB 


A4 


36 


LDY 


$36 


F8FD 


A5 


53 


LDA 


$53 


F8FF 


91 


2E 


STA 


($2E) ,Y 


F901 


C8 




INY 




F902 


A5 


54 


LDA 


$54 


F904 


91 


2E 


STA 


($2E) ,Y 


F906 


C8 




INY 




F907 


A5 


55 


LDA 


$55 


F909 


91 


2E 


STA 


($2E) ,Y 


F90B 


C8 




INY 




F90C 


84 


36 


STY 


$36 


F90E 


20 


E6 F7 


JSR 


$F7E6 
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F911 


A4 


36 


LDY $36 


F913 


A5 


52 


LDA $52 


F915 


91 


2E 


STA (S2E) , Y 


F917 


C8 




INY 


F918 


FO 


11 


BEO SF9 2B 


F91A 


A5 


53 


LDA S53 


F91C 


91 


2E 


STA (S2E) ,Y 


F9XE 


C8 




INY 


F91F 


A5 


54 


LDA $54 


F921 


91 


2E 


STA ($2E) ,Y 


F923 


C8 




INY 


F924 


AS 


55 


LDA $55 


F926 


91 


2E 


STA ($2E) ,Y 


F928 


C8 




INY 


F929 


DO 


El 


BNE SF90C 


F92B 


A5 


53 


LDA $53 


F9 2D 


85 


3A 


STA $3A 


F9 2F 


A5 


2F 


LDA S2F 


F931 


85 


31 


STA $31 


F933 


60 




RTS 


F9 34 


A5 


31 


LDA $31 


F936 


85 


2F 


STA $2F 


F9 38 


A9 


00 


LDA #$00 


F93A 


85 


31 


STA $31 


F9 3C 


A9 


24 


LDA #$24 


F93E 


85 


34 


STA $34 


F940 


A5 


39 


LDA $39 


F942 


85 


52 


STA $52 


F944 


A5 


1A 


LDA $1A 


F946 


85 


53 


STA $53 


F948 


A5 


19 


LDA $19 


F94A 


85 


54 


STA $54 


F9 4C 


A5 


18 


LDA $18 


F94E 


85 


55 


STA $55 


F9 50 


20 


DO F6 


JSR $F6D0 


F953 


A5 


17 


LDA $17 


F955 


85 


52 


STA $52 


F9S7 


A5 


16 


LDA $16 


F9 59 


85 


53 


STA $53 


F95B 


A9 


00 


LDA #$00 


F9 5D 


85 


54 


STA $54 


F95F 


85 


55 


STA $55 


F961 


20 


DO F6 


JSR $F6D0 


F964 


A5 


2F 


LDA $2F 


F966 


85 


31 


STA $31 


F968 


60 




RTS 


F969 


A4 


3F 


LDY $3F 


F96B 


99 


00 00 


STA $000D,Y 


F9 6E 


A5 


50 


LDA $50 


F970 


FO 


03 


BEO SF975 


F972 


20 


F2 F5 


JSP $F5F2 


F975 


20 


8F F9 


JSR SF98F 


F978 


A6 


49 


LDX $49 



get stack pointer back 
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F97A 


9A 






TXS 




F97B 


4C 


BE 


F2 


JMP 


SF2BE 


F97E 


A9 


A0 




LDA 


#$A0 


F980 


85 


20 




STA 


S20 


F982 


AD 


00 


1C 


LDA 


$1C00 


F985 


09 


04 




ORA 


#$04 


F987 


8D 


00 


1C 


STA 


$1C00 


F98A 


A9 


3C 




LDA 


S3C 


F9 8C 


85 


48 




STA 


$48 


F98E 


60 






PTS 




F98F 


A6 


3E 




LDX 


$3E 


F991 


A5 


20 




LDA 


$20 


F993 


09 


10 




ORA 


*$10 


F995 


85 


20 




STA 


$20 


F997 


A9 


FF 




LDA 


#$FF 


F999 


85 


48 




STA 


$48 


F99B 


60 






RTS 




F99C 


AD 


07 


1C 


LDA 


S1C07 


F99F 


8D 


05 


1C 


STA 


S1C05 


F9A2 


AD 


00 


1C 


LDA 


S1C00 


F9A5 


29 


10 




AND 


#$10 


F9A7 


C5 


IE 




CMP 


$1E 


F9A9 


85 


IE 




STA 


$1E 


F9AB 


F0 


04 




BEO 


SF9B1 


F9AD 


A9 


01 




LDA 


#$01 


F9AF 


85 


1C 




STA 


$1C 


F9B1 


AD 


FE 


02 


LDA 


S02FE 


F9B4 


F0 


15 




BEO 


$F9CB 


F9B6 


C9 


02 




CMP 


#$02 


F9BB 


DO 


07 




BNE 


$F9C1 


F9BA 


A9 


00 




LDA 


#$00 


F9BC 


8D 


FE 


02 


STA 


$02FE 


F9BF 


F0 


OA 




BEO 


SF9CB 


F9C1 


85 


4A 




STA 


$4A 


F9C3 


A9 


02 




LDA 


#$02 


F9C5 


8D 


FE 


02 


STA 


$02FE 


F9C8 


4C 


2E 


FA 


JMP 


$FA2E 


F9CB 


A6 


3E 




LDX 


$3E 


F9CD 


30 


07 




BMI 


SF9D6 


F9CF 


A5 


20 




LDA 


$20 


F9D1 


A8 






TAY 




F9D2 


C9 


20 




CMP 


#$20 


F9D4 


DO 


03 




BNE 


$F9D9 


F9D6 


4C 


BE 


FA 


JMP 


SFABE 


F9D9 


C6 


48 




DEC 


$48 


F9DB 


DO 


ID 




BNE 


SF9FA 


F9DD 


98 






TYA 




F9DE 


10 


04 




BPL 


SF9E4 


F9E0 


29 


7F 




AND 


#$7F 


F9E2 


85 


20 




STA 


$20 



turn drive piotor off 



write protect? 
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F9E4 


29 


10 


AND 


#$10 


F9E6 


FO 


12 


BEO 


SF9FA 


F9E8 


AD 


00 1C 


LDA 


$1C00 


F9EB 


29 


FB 


AND 


#$FB 


F9ED 


8D 


00 1C 


STA 


S1C00 


F9F0 


A9 


FF 


LDA 


#$FF 


F9F2 


85 


3E 


STA 


$3E 


F9F4 


A9 


00 


LDA 


#$00 


F9F6 


85 


20 


STA 


$20 


F9F8 


FO 


DC 


BEO 


SF9D6 


F9FA 


98 




TYA 




F9FB 


29 


40 


AND 


#$40 


F9FD 


DO 


03 


BNE 


SFA02 


F9FF 


4C 


BE FA 


JMP 


$FABE 


FA02 


6C 


62 00 


JMP 


($0062) 


FA05 


A5 


4A 


LDA 


#$4A 


FA07 


10 


05 


BPL 


$FA0E 


FA09 


49 


FF 


EOR 


#$FF 


FAOB 


18 




CLC 




FAOC 


69 


01 


ADC 


#$01 


FAOE 


C5 


64 


CMP 


$64 


FAIO 


BO 


OA 


BCS 


$FA1C 


FA12 


A9 


3B 


LDA 


#$3B 


FA14 


85 


62 


STA 


$62 


FA16 


A9 


FA 


LDA 


#$FA 


FA18 


85 


63 


STA 


$63 


FA1A 


DO 


12 


BNE 


$FA2E 


FA1C 


E5 


5E 


SBC 


S5E 


FA1E 


E5 


5E 


SBC 


$5E 


FA20 


85 


61 


STA 


$61 


FA22 


A5 


5E 


LDA 


$5E 


FA24 


85 


60 


STA 


$60 


FA26 


A9 


7B 


LDA 


#$7B 


FA28 


85 


62 


STA 


$62 


FA2A 


A9 


FA 


LDA 


#$FA 


FA2C 


85 


63 


STA 


$63 


FA2E 


A5 


4A 


LDA 


$4A 


FA30 


10 


31 


BPL 


SFA63 


FA3 2 


E6 


4A 


INC 


$4A 


FA34 


AE 


00 1C 


LDX 


$1C00 


FA37 


CA 




DEX 




FA38 


4C 


69 FA 


JMP 


$FA69 


*****] 


K*K**r*J*J*J**************** 


FA3B 


A5 


4A 


LDA 


$4A 


FA3D 


DO 


EF 


BNE 


SFA2E 


FA3F 


A9 


4E 


LDA 


#$4E 


FA41 


85 


62 


STA 


$62 


FA4 3 


A9 


FA 


LDA 


#SFA 


FA45 


85 


63 


STA 


$63 


FA47 


A9 


05 


LDA 


*$05 


FA49 


85 


60 


STA 


$60 



Anatomy of the 1541 Disk Drive 



drive motor on 



pointer S62/S63 to SFA3B 



pointer S62/S63 to $FA7B 

step counter for head transport 

increment 



step counter for head tranrport 
not yet zero? 



pointer $62/$63 to $FA4E 
counter to 5 



FA4B 4C BE FA JMP $FABE 
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****************************** 



FA4E 


C6 


60 




DEC 


S60 


FA50 


DO 


6C 




BNE 


$FAPE 


FA5 2 


A5 


20 




LDA 


$20 


FA54 


29 


BF 




AND 


#$BF 


FA56 


85 


20 




STA 


S20 


FA58 


A9 


05 




LDA 


#$05 


FA5A 


85 


62 




STA 


$62 


FA5C 


A9 


FA 




LDA 


#$FA 


FA5E 


85 


63 




STA 


$63 


FA60 


4C 


BE 


FA 


JMP 


SFABE 


*************************** 


FA63 


C6 


4A 




DEC 


S4A 


FA65 


AE 


00 


1C 


LDX 


$1C00 


FA68 


E8 






I NX 




FA69 


8A 






TXA 




FA6A 


29 


03 




AND 


#$03 


FA6C 


85 


4B 




STA 


$4B 


FA6E 


AD 


00 


1C 


LDA 


S1C00 


FA71 


29 


FC 




AND 


#$FC 


FA73 


05 


4B 




ORA 


$4B 


FA75 


8D 


00 


1C 


STA 


$1C00 


FA78 


4C 


BE 


FA 


JMP 


SFABE 


********************»******] 


FA7B 


38 






SEC 




FA7C 


AD 


07 


1C 


LDA 


$1C07 


FA7F 


E5 


5F 




SBC 


$5F 


FA81 


8D 


05 


1C 


STA 


$1C0 5 


FA8 4 


C6 


60 




DEC 


$60 


FA86 


DO 


OC 




PNE 


SFA94 


FA88 


A5 


5E 




LDA 


S5E 


FA8A 


85 


60 




STA 


$60 


FA8C 


A9 


97 




STA 


#$97 


FA8E 


85 


62 




STA 


$62 


FA90 


A9 


FA 




LDA 


#$FA 


FA92 


85 


63 




STA 


$63 


FA94 


4C 


2E 


FA 


JMP 


SFA2E 


********************** 


; + + **** 


FA97 


C6 


61 




DEC 


$61 


FA99 


DO 


F9 




BNE 


$FA94 


FA9B 


A9 


A5 




LDA 


#$A5 


FA9D 


85 


62 




STA 


$62 


FA9F 


A9 


FA 




LDA 


#$FA 


FAA1 


85 


63 




STA 


$63 


FAA3 


DO 


EF 




BNE 


$ FA9 4 



decrement counter 
not yet zero? 

erase bit 6 



pointer $62/$63 to FA05 



step counter for head transport 



stepper motor off 



decrement counter 
not yet zero? 



pointer $62/$63 to $FA97 



pointer $62/$63 to $FAA5 



****************************** 

FAA5 AD 07 1C LDA S1C07 

FAA8 18 CLC 

FAA9 65 5F ADC $5F 

FAAB 8D 05 1C STA S1C05 
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FAAE 
FABO 
FAB2 
FAB 4 
FAB6 
FAB8 
FABA 
FABC 
FABE 
FAC1 
FAC3 
FAC6 



C6 60 
DO E2 
A9 4E 
85 62 
A9 FA 
85 63 
A9 05 
85 60 
AD 0C 1C 
29 FD 
8D 0C 1C 
60 



DEC 
BNE 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
AND 
STA 
RTS 



$60 

SFA94 

#$4E 

$62 

#$FA 

$63 

#$05 

$60 

S1C0C 

#$FD 

S1C0C 



decrement counter 
not yet zero? 

pointer $62/$63 to $FA4E 



****************************** 



FAC7 
FAC9 
FACB 
FACD 
FACF 
FAD1 
FAD3 
FAD5 
FAD7 
FAD9 
FADB 
FADE 
FAE0 
FAE3 
FAE5 
FAE8 
FAEA 
FAED 
FAEF 
FAF2 

FAF5 
FAF7 
FAF9 
FAFB 
FAFD 

FB00 
FB03 
FB05 
FB07 
FB09 

FB0C 
FB0F 
FB12 
FBI 4 
FB17 
FB1A 
FB1D 
FB20 



A5 51 

10 2A 

A6 3D 

A9 60 

95 20 

A9 01 

95 22 

85 51 

A9 A4 

85 4A 

AD 00 1C 

29 FC 

8D 00 1C 

A9 0A 

8D 20 06 

A9 A0 

8D 21 06 

A9 OF 

8D 22 06 

4C 9C F9 

A0 00 

Dl 32 

F0 05 

91 32 

4C 9C F9 

AD 00 1C 

29 10 

DO 05 

A9 08 

4C D3 FD 

20 A3 FD 

20 C3 FD 

A9 55 

8D 01 1C 

20 C3 FD 

20 00 FE 

20 56 F5 

A9 40 



LDA 
BPL 
LDX 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JMP 



$51 

SFAF5 

$3D 

#$60 

$20, X 

#$01 

$22, X 

$51 

#$A4 

$4A 

$1C00 

#$FC 

S1C00 

#S0A 

$0620 

#$40 

$0621 

#$0F 

$0622 

SF99C 



LDY #$00 
CMP ($32) ,Y 
BEO $FB00 
STA ($32) ,Y 
JMP $F99C 

LDA $1C00 
AND #$10 
BNE $FB0C 
LDA #$08 
JMP $FDP3 

JSR SFDA3 
JSF SFDC3 
LDA #$55 
STA S1C01 
JSF SFDC3 
JSR SFEOO 
JSR SF556 
LDA #$40 



counter to 5 
erase bit 1 



formatting 

track number 

fomatting already in progress 

drive number 

flag for head transport 

set 

set destination track 

running track # for format 

164 

step counter for head transport 

stepper motor on 

10 

error counter 

$621/$622 = 4000 

initialize track capacity 

4000 < capacity < 2*4000 bytes 



back in job loop 



to job loop 



write protect? 
no 

26, "write protect on' 

write $FF to disk 10240 times 

code (S621/$622) times to disk 

$55 

to write head 

and (S621/S622) times to disk 

switch to read 

set timer, find $FF (SYNC) 
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FB22 


OD 


OB 


18 


ORA 


$180B 


FB2 5 


8D 


OB 


18 


STA 


S180B 


FB28 


A9 


62 




LDA 


#$62 


FB2A 


8D 


06 


18 


STA 


S1806 


FB2D 


A9 


00 




LDA 


#$00 


FB2F 


8D 


07 


18 


STA 


$1807 


FB3 2 


8D 


05 


18 


STA 


$1805 


FB35 


AO 


00 




LDY 


#$00 


FB37 


A2 


00 




LDX 


#$00 


FB39 


2C 


00 


1C 


BIT 


sicoo 


FB3C 


30 


FB 




BMI 


SFB39 


FB3E 


2C 


00 


1C 


BIT 


$1C00 


FB41 


10 


FB 




BPL 


$FB3E 


FB43 


AD 


04 


18 


LDA 


$1804 


FB46 


2C 


00 


1C 


BIT 


S1C00 


FB49 


10 


11 




BPL 


$FB5C 


FB4B 


AD 


OD 


18 


LDA 


S180D 


FB4E 


0A 






ASL 


A 


FB4F 


10 


F5 




BPL 


$FB46 


FB51 


E8 






I NX 




FB52 


DO 


EF 




BNE 


SFB43 


FB54 


C8 






INY 




FB55 


DO 


EC 




BNE 


$FB43 


FB57 


A9 


02 




LDA 


#$02 


FB59 


4C 


D3 


FD 


JMP 


$FDD3 


FB5C 


86 


71 




STX 


$71 


FB5E 


84 


72 




STY 


$72 


FB60 


A2 


00 




LDX 


#$00 


FB62 


AO 


00 




LDY 


#$00 


FB64 


AD 


04 


18 


LDA 


$1804 


FB67 


2C 


00 


1C 


BIT 


$1C00 


FB6A 


30 


11 




BMI 


SFB7D 


FB6C 


AD 


OD 


18 


LDA 


S180D 


FB6F 


0A 






ASL 


A 


FB7 


10 


F5 




BPL 


SFB67 


FB72 


E8 






I NX 




FB73 


DO 


EF 




BNE 


SFB6 4 


FB75 


C8 






INY 




FB76 


DO 


EC 




BNE 


$FB64 


FB78 


A9 


02 




LDA 


#$02 


FB7A 


4C 


D3 


FD 


JMP 


$FDD3 


FB7D 


38 






SEC 




FB7E 


8A 






TXA 




FB7F 


E5 


71 




SBC 


$71 


FB81 


AA 






TAX 




FB8 2 


85 


70 




STA 


$70 


FB84 


98 






TYA 




FB85 


E5 


72 




SBC 


$72 


FB8 7 


A8 






TAY 




FB88 


85 


71 




STA 


$71 


FB8A 


10 


OB 




BPL 


SFB97 


FB8C 


49 


FF 




EOR 


#$FF 


FB8E 


A8 






TAY 





timer 1 free running 
98 cycles, about 0.1 ms 



start timer 
counter to zero 

SYNC found? 

no, wait 

SYNC found? 

wait for SYNC 

reset interrupt flag timer 

SYNC found? 

not SYNC ($55)? 

interrupt flag register 

shift timer flag 

timer not run down yet? 

increment counter 

increment hi-byte of counter 

overflow, then error 
20, 'read error' 



counter to zero again 

reset timer 1 interrupt flag 

SYNC found? 

yes 

interrupt-f lag register 

timer flag to bit 7 

no, wait until timer run down 

increment counter 



overflow, then error 
20, 'read error' 



difference between counter 

and value for $FF-storage 
bring to $70/$71 
difference positive? 



258 



Anatomy of the 1541 Disk Drive 



FB8F 
FB90 
FB92 
FB93 
FB94 
FB96 
FB97 
FB98 
FB9A 
FB9C 
FB9E 
FBAO 
FBA2 
FBA3 
FBA5 
F8A8 
FBAB 
FBAD 
FBBO 
FBB3 

FBB6 
FBB8 
FBBA 
FBBB 
FBBE 
FBCO 
FBC2 
FBC3 
FBC4 
FBC6 
FBC7 
FBC9 
FBCB 

FBCE 
FBCF 
FBDO 
FBD3 
FBD4 
FBD5 
FBD8 
FBDA 
FBDD 
FBEO 
FBE2 
FBE5 
FBE7 
FBE9 
FBEA 
FBEB 
FBEE 
FBFO 
FBF1 
FBF2 



8A 

49 FF 
AA 

E8 

DO 01 
C8 
98 

DO 04 

EO 04 

90 18 

06 70 

26 71 
18 

A5 70 

6D 21 06 

8D 21 06 

A5 71 

6D 22 06 

8D 22 06 

4C OC FB 

A2 00 

AO 00 

B8 

AD 00 1C 

10 OE 

50 59 
B8 

E8 

DO F5 

C8 

DO F2 

A9 03 

4C D3 FD 

8A 

OA 

8D 25 06 

98 

2A 

8D 24 06 

A9 BF 

2D OB 18 

8D OB 18 

A9 66 

8D 26 06 

A6 43 

AO 00 

98 

18 

6D 26 06 

90 01 

C8 

C8 

CA 



TXA 
EOR 
TAX 
I NX 
BNE 
INY 
TYA 
BNE 
CPX 
BCC 
ASL 
ROL 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
JMP 

LDX 
LDY 
CLV 
LDA 
BPL 
BVC 
CLV 
INX 
BNE 
INY 
BNE 
LDA 
JMP 

TXA 
ASL 
STA 
TYA 
ROL 
STA 
LDA 
AND 
STA 
LDA 
STA 
LDX 
LDY 
TYA 
CLC 
ADC 
BCC 
INY 
INY 
DEX 



#$FF 



SFB97 



SFB9E 

#$04 

SFBB6 

$70 

$71 

$70 

$0621 

$0621 

$71 

$0622 

$0622 

SFBOC 

#$00 
#$00 

$1COO 
SFBCE 
SFBBB 



SFBBB 

$FBBB 

#$03 

SFDD3 



A 
$0625 

A 

S0624 

#$BF 

S180B 

$180B 

#$66 

$0626 

$43 

#$00 



$0626 
SFBF1 



calculate abs. val of difference 



difference less than 4 * 0.1 ms 
yes 



double difference 



add to 4000 



repeat until diff < 4 * 0.1 ms 



counter to zero 



SYNC? 

no 

byte ready? 



increment counter 



overflow, then error 
21 , read error 



double counter 



and to $624/$625 as track cap. 



102 



number of sectors in this track 
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FBF3 


DO 


F5 




BNE 


SFBEA 


calculate # of bytes 


FBF5 


49 


FF 




EOR 


#$FF 




FBF7 


38 






SEC 






FBF8 


69 


00 




ADC 


#$00 




FBFA 


18 






CLC 






FBFB 


6D 


25 


06 


ADC 


$0625 




FBFE 


BO 


03 




BCS 


$FC03 




FCOO 


CE 


24 


06 


DEC 


$0624 




FC03 


AA 






TAX 






FC04 


98 






TYA 






FC05 


49 


FF 




EOF 


#$FF 




FC07 


38 






SEC 






FC08 


69 


00 




ADC 


#$00 




FCOA 


18 






CLC 






FCOB 


6D 


24 


06 


ADC 


$0624 


result in A/X 


FCOE 


10 


05 




BPL 


SFC15 




FC10 


A9 


04 




LDA 


#$04 




FC12 


4C 


D3 


FD 


JMP 


$FDD3 


22, 'read error' 


FC15 


A8 






TAY 






FC16 


8A 






TXA 






FC17 


A2 


00 




LDX 


#$00 




FC19 


38 






SEC 




total divided by number 


FC1A 


E5 


43 




SBC 


$43 


of sectors ($43) 


FC1C 


BO 


03 




BCS 


$FC21 




FC1E 


88 






DEY 






FC1F 


30 


03 




BMI 


SFC24 




FC21 


E8 






INX 






FC22 


DO 


F5 




BNE 


$FC19 




FC24 


8E 


26 


06 


STX 


$0626 


compare no. of bytes per inte 


FC27 


EO 


04 




CPX 


#$04 


with minimum value 


FC29 


BO 


05 




BCS 


$FC30 


ok 


FC2B 


A9 


05 




LDA 


#$05 




FC2D 


4C 


D3 


FD 


JMP 


SFDD3 


23 , ' read error' 


FC30 


18 






CLC 




remainder of division 


FC31 


65 


43 




ADC 


$43 


plus number of sectors 


FC33 


8D 


27 


06 


PTA 


$0627 


save 


FC36 


A9 


00 




LDA 


#$00 




FC38 


8D 


28 


06 


STA 


$0628 


counter for sectors 


FC3B 


AO 


00 




LDY 


#$00 


counter lo 


FC3D 


A6 


3D 




LDX 


$3D 


drive number 


FC3F 


A5 


39 




LDA 


$39 


constant 8, marker for heaeer 


FC41 


99 


00 


03 


STA 


$0300, Y 


in buffer 


FC44 


C8 






I NY 






FC45 


C8 






INY 






FC46 


AD 


28 


06 


LDA 


$0628 


sector number 


FC49 


99 


00 


03 


STA 


S0300.Y 


in buffer 


FC4C 


C8 






INY 






FC4D 


A5 


51 




LDA 


$51 


track number 


FC4F 


99 


00 


03 


STA 


$0300, Y 


in buffer 


FC52 


C8 






INY 






FC53 


B5 


13 




LDA 


$13, X 


ID 2 


FC55 


99 


00 


03 


STA 


$0300, Y 


in buffer 


FC58 


C8 






INY 






FC59 


B5 


12 




LDA 


$12, X 


ID 1 
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FC5B 

FC5E 

FC5F 

FC61 

FC64 

FC65 

FC68 

FC69 

FC6B 

FC6E 

FC71 

FC74 

FC77 

FC7A 

FC7D 

FC80 

FC82 

FC84 

FC85 

FC86 

FC87 

FC88 

FC8B 

FC8C 

FC8E 

FC90 

FC92 

FC95 

FC96 

FC97 

FC98 

FC9B 

FC9E 

FCAO 

FCA2 

FCA5 

FCA7 

FCAA 

FCAC 

FCAE 

FCB1 

FCB3 

FCB6 

FCB8 

FCBA 

FCBB 

FCBC 

FCBE 

FCCO 

FCC2 

FCC4 

FCC5 

FCC8 

FCCB 

FCCC 



99 00 03 

C8 

A9 OF 

99 00 03 

C8 

99 00 03 

C8 

A9 00 

59 FA 02 

59 FB 02 

59 FC 02 

59 FD 02 

99 F9 02 

EE 28 06 

AD 28 06 

C5 43 

90 BB 

98 

48 

E8 

8A 

9D 00 05 

E8 

DO FA 

A9 03 

85 31 

20 30 FE 

68 

A8 

88 

20 E5 FD 

20 F5 FD 

A9 05 

85 31 

20 E9 F5 

85 3A 

20 8F F7 

A9 00 

85 32 

20 OE FE 

A9 FF 

8D 01 1C 

A2 05 

50 FE 

B8 

CA 

DO FA 

A2 OA 

A4 32 

50 FE 

B8 

B9 00 03 

8D 01 1C 

C8 

CA 



STA $0300, Y 

INY 

LDA #S0F 

STA $0300, Y 

INY 

STA $0300, Y 

INY 

LDA #$00 

EOR $02FA,Y 

EOR $02FB,Y 

EOR S02FC,Y 

EOR $02FD,Y 

STA $02F9,Y 

INC $0628 

LDA $0628 

CMP $43 

BCC $FC3F 

TYA 

PHA 

I NX 

TXA 

STA $0500, X 

INX 

BNE SFC88 

LDA #$03 

STA $31 

JSR SFE30 

PLA 

TAY 

DEY 

JSR SFDE5 

JSR $FDF5 

LDA #$05 

STA $31 

JSR SF5E9 

STA S3A 

JSR SF78F 

LDA #$00 

STA $32 

JSR $FE0E 

LDA #$FF 

STA $1C01 

LDX #$05 

BVC SFCB8 

CLV 

DEX 

BNE $FCB8 

LDX #$0A 

LDY $32 

BVC $FCC2 

CLV 

LDA $0300, Y 

STA $1C01 

INY 

DEX 



in buffer 

15 

in buffer 

15 in buffer 



generate checksum 



increment counter 

counter 

compare with no. of sectors 

smaller, then continue 



buffer pointer to $300 



copy buffer data 
copy data in buffer 

buffer pointer to $500 
calculate parity for data butter 
and save 



to write head 
write $FF 5 times 
byte ready 



10 times 
buffer pointer 
byte ready? 

data from buffer 
write 

10 data written? 
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FCCD 


DO 


F3 




BNE 


$FCC2 




FCCF 


A2 


09 




LDX 


#$09 


9 times 


FCD1 


50 


FE 




BVC 


SFCD1 


byte ready? 


FCD3 


B8 






CLV 






FCD4 


A9 


55 




LDA 


#$55 


$55 


FCD6 


8D 


01 


1C 


STA 


S1C01 


write 


FCD9 


CA 






DEX 






FCDA 


DO 


F5 




BNE 


$FCD1 


9 times? 


FCDC 


A9 


FF 




LDA 


#$FF 


$FF 


FCDE 


A2 


05 




LDX 


#$05 


5 times 


FCEO 


50 


FE 




BVC 


$FCE0 


byte ready? 


FCE2 


B8 






CLV 






FCE3 


8D 


01 


1C 


STA 


$1C01 


to write head 


FCE6 


CA 






DEX 






FCE7 


DO 


F7 




BNE 


$FCE0 




FCE9 


A2 


BB 




LDX 


#$BB 




FCEB 


50 


FE 




BVC 


SFCEB 




FCED 


B8 






CLV 






FCEE 


BD 


00 


01 


LDA 


$0100, X 


area $1BB to $1FF 


FCF1 


8D 


01 


1C 


STA 


$1C01 


save 


FCF4 


E8 






I NX 






FCF5 


DO 


F4 




BNE 


$FCEB 




FCF7 


AO 


00 




LDY 


#$00 




FCF9 


50 


FE 




BVC 


$FCF9 


byte ready? 


FCFB 


B8 






CLV 






FCFC 


Bl 


30 




LDA 


($30) ,Y 


256 bytes of data 


FCFE 


8D 


01 


1C 


STA 


S1C01 


write byte to disk 


FD01 


C8 






INY 






FD02 


DO 


F5 




BNE 


$FCF9 




FD04 


A9 


55 




LDA 


#$55 


$55 


FD06 


AE 


26 


06 


LDX 


$0626 


($626) tiroes 


FD09 


50 


tE 




BVC 


SFD09 




FDOB 


B8 






CLV 






FDOC 


8D 


01 


1C 


STA 


$1C01 


write 


FDOF 


CA 






DEX 






FD10 


DO 


F7 




BNE 


$FD09 




FD12 


A5 


32 




LDA 


$32 




FD14 


18 






CLC 






FD15 


69 


OA 




ADC 


#$0A 


plus 10 


FD17 


85 


32 




STA 


$32 




FD19 


CE 


28 


06 


DEC 


$0628 


decrement sector number 


FD1C 


DO 


93 




BNE 


$FCB1 




FD1E 


50 


FE 




BVC 


$FD1E 


byte ready? 


FD20 


B8 






CLV 






FD21 


50 


FE 




BVC 


SFD21 


byte ready? 


FD23 


B8 






CLV 






FD24 


20 


00 


FE 


JSR 


SFEOO 


switch to reading 


FD27 


A9 


C8 




LDA 


#$C8 


200 


FD29 


8D 


23 


06 


STA 


$0623 




FD2C 


A9 


00 




LDA 


#$00 




FD2E 


85 


30 




STA 


$30 




FD30 


A9 


03 




LDA 


#$03 


buffer pointer to $200 


FD32 


85 


31 




STA 


$31 




FD34 


A5 


43 




LDA 


$43 


number of sectors per ti 


FD36 


8D 


28 


06 


STA 


$0628 
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FD39 
FD3C 
FD3E 
FD40 
FD42 
FD43 
FD46 
FD48 
FD4A 
FD4B 
FD4C 
FD4E 
FD4F 
FD51 
FD53 
FD55 

FD58 
FD5B 
FD5D 
FD5F 

FD62 
FD65 
FD67 
FD69 
FD6A 
FD6D 
FD70 
FD72 
FD73 
FD75 
FD77 
FD79 
FD7A 
FD7D 
FD80 
FD82 
FD83 
FD84 
FD8 6 
FD89 
FD8B 
FD8D 
FD8F 
FD91 
FD93 

FD96 
FD98 
FD9A 
FD9C 
FD9E 
FDAO 



20 56 F5 

A2 0A 

A0 00 

50 FE 

B8 

AD 01 1C 

Dl 30 

DO 0E 

C8 

CA 

DO F2 

18 

A5 30 

69 0A 

85 30 

AC 6 2 FD 

CE 23 06 

DO CF 

A9 06 

4C D3 FD 

20 56 F5 

AO BB 

50 FE 

B8 

AD 01 1C 

D9 00 01 

DO E6 

C8 

DO F2 

A2 FC 

50 FE 

B8 

AD 01 1C 

D9 00 05 

DO D6 

C8 

CA 

DO Fl 

CE 28 06 

DO AE 

E6 51 

A5 51 

C9 24 

BO 03 

4C 9C F9 

A9 FF 

85 51 

A9 00 

85 50 

A9 01 

4C 69 F9 



JSK 
LDX 
LDY 
BVC 
CLV 
LDA 
CMP 
BNE 
I NY 
DEX 
BNE 
CLC 
LDA 
ADC 
STA 
JMP 



$F556 
#$0A 

tsoo 

$FD40 

S1C01 
($30) ,Y 
SFD58 



$FD40 

$30 

#$0A 

$30 

$FD62 



DEC $0623 
BNE $FD2C 
LDA #$06 
JMP $FDD3 



JSR 
LDY 
BVC 
CLV 
LDA 
CMP 
BNE 
I NY 
BNE 
LDX 
BVC 
CLV 
LDA 
CMP 
BNE 
INY 
DEX 
BNE 
DEC 
BNE 
INC 
LDA 
CMP 
BCS 
JMP 



$F556 

#SBB 

$FD67 

$1C01 
$0100, Y 
$FD58 

$FD67 

#$FC 

$FD77 

$1C01 
$0500, Y 
$FD58 



SFD77 

$0628 

SFD39 

$51 

$51 

#$24 

$FD96 

SF99C 



LDA #$FF 
STA $51 
LDA #$00 
STA $50 
LDA #$01 
JMP SF969 



wait for SYNC 
10 data 

byte ready? 

read byte 

compare with data in buffer 

not equal, error 



increment pointer by 10 



decrement counter for attempts 

not yet zero? 

else error 

24, 'read error 1 

wait for SYNC 

byte ready? 

read byte 

compare with buffer contents 

not equal, error 

next byte 

byte ready? 

read byte 

compare with buffer contents 

not equal, then error 

next byte 

decrement sector counter 
not yet zero? 
increment track number 

compare with 36, mgnest trk# +1 
greater, then formatting done 
continue 



track number to $FF 



ok 
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****************************** 



FDA3 

FDA6 
FDA8 
FDAA 
FDAD 
FDAF 
FDB2 
FDB5 
FDB7 
FDB9 
FDBB 
FDBC 
FDBD 
FDBF 
FDCO 
FDC2 



AD OC 1C 

29 IF 

09 CO 

8D OC 1C 

A9 FF 

8D 03 1C 

8D 01 1C 

A2 28 

A0 00 

50 FE 
B8 
88 

DO FA 
CA 

DO F7 
60 



LDA 
AND 
ORA 
STA 
LDA 
STA 
STA 
LDX 
LDY 
BVC 
CLV 
DEY 
BNE 
DEX 
BNE 
RTS 



S1C0C 

#S1F 

#$C0 

S1C0C 

#$FF 

$1C03 

$1C01 

#$28 

#$00 

$FDB9 



$FD89 
$FD89 



****************************** 



FDC3 
FDC6 
FDC9 
FDCB 
FDCC 
FDCD 
FDCF 
FDDO 
FDD2 



AE 21 06 

AC 22 06 

50 FE 

B8 

CA 

DO FA 

88 

10 F7 

60 



LDX S0621 

LDY $0622 

BVC $FDC9 

CLV 

DEX 

BNE $FDC9 

DEY 

BPL $FDC9 

RTS 



****************************** 
FDD3 CE 20 06 DEC $0620 
FDD6 FO 03 BEO $FDDB 
FDD8 4C 9C F9 JMP SF99C 



FDDB AO FF 

FDDD 84 51 

FDDF C8 

FDEO 84 50 



FDE2 



4C 69 F9 



LDY #$FF 
STY $51 
I NY 

STY $50 
JMP SF969 



****************************** 
FDE5 B9 00 03 LDA $0300, Y 



FDE8 


99 


45 


03 


STA $0345 


Y 


FDEB 


88 






DEY 




FDEC 


DO 


F7 




BNE $FDE5 




FDEE 


AD 


00 


03 


LDA $0300 




FDF1 


8D 


45 


03 


STA $0345 




FDF4 


60 






RTS 




***************************** 


FDF5 


AO 


44 




LDY #$44 




FDF7 


B9 


BB 


01 


LDA $01BB 


Y 


FDFA 


91 


30 




STA ($30) 


Y 


FDFC 


88 






DEY 




FDFD 


10 


F8 




BPL $FDF7 





write $FF 10240 times 
switch PCR to writing 



port A( read/write head) to output 

write $FF to disk 

40 



byte ready? 



read/write ($621/$6 e 22) times 
byte ready? 



attempt counter for formatting 
decrement number of attempts 
zero, then error 
continue 



flag for end of formatting 



error termination 



copy buffer contents 



$1BB to $1FF 

write in buffer $30/$31 
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FDFF 



60 



RTS 



****************************** 



FE00 


AD 


OC 


1C 


LDA 


$1C0C 


FE03 


09 


EO 




ORA 


#SE0 


FE05 


8D 


OC 


1C 


STA 


$1C0C 


FE08 


A9 


00 




LDA 


#$00 


FEOA 


8D 


03 


1C 


STA 


$1C03 


FEOD 


60 






RTS 




*****************************: 


FEOE 


AD 


OC 


1C 


LDA 


sicoc 


FEU 


29 


IF 




AND 


#$1F 


FE13 


09 


CO 




ORA 


#sco 


FE15 


8D 


OC 


1C 


STA 


$1C0C 


FE18 


A9 


FF 




LDA 


#$FF 


FE1A 


8D 


03 


1C 


STA 


S1C03 


FE1D 


A9 


55 




LDA 


#$55 


FE1F 


8D 


01 


1C 


STA 


$1C01 


FE22 


A2 


28 




LDX 


#$28 


FE24 


AO 


00 




LDY 


#$00 


FE26 


50 


FE 




BVC 


$FE26 


FE28 


B8 






CLV 




FE29 


88 






DEY 




FE2A 


DO 


FA 




BNE 


$FE26 


FE2C 


CA 






DEX 




FE2D 


DO 


F7 




BNE 


$FE26 


FE2F 


60 






RTS 




***************************** 


FE30 


A9 


00 




LDA 


#$00 


FE3 2 


85 


30 




STA 


$30 


FE34 


85 


2E 




STA 


$2E 


FE36 


85 


36 




STA 


$36 


FE38 


A9 


BB 




LDA 


#$BB 


FE3A 


85 


34 




STA 


$34 


FE3C 


A5 


31 




LDA 


$31 


FE3E 


85 


2F 




STA 


$2F 


FE40 


A9 


01 




LDA 


#$01 


FE42 


85 


31 




STA 


$31 


FE44 


A4 


36 




LDY 


$36 


FE46 


Bl 


2E 




LDA 


($2E),Y 


FE48 


85 


52 




STA 


$52 


FE4A 


C8 






INY 




FE4B 


Bl 


2E 




LDA 


($2E) ,Y 


FE4D 


85 


53 




STA 


$53 


FE4F 


C8 






INY 




FE50 


Bl 


2E 




LDA 


($2E) ,Y 


FE52 


85 


54 




STA 


$54 


FE54 


C8 






INY 




FE55 


Bl 


2E 




LDA 


($2E),Y 


FE57 


85 


55 




STA 


$55 


FE59 


C8 






I NY 




FE5A 


FO 


08 




BEO 


SFE64 


FE5C 


84 


36 




STY 


$36 



switch to reading 
switch PCR to reading 

port A to input 

write $55 10240 times 

switch PCR to writing 



port A to output (write head) 

%01010101 

to port A (write head) 



byte ready for write electronics 



10240 tiroes 
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FE5E 02 


DO 


F6 


JSR $F6D0 


FE61 4C 


44 


FE 




FE64 4C 


DO 


F6 


JMP SF6D0 


****************************** 


FE67 48 






PHA 


FE68 8A 






TXA 


FE69 48 






PHA 


FE6A 98 






TYA 


FE6B 48 






PHA 


FE6C AD 


OD 


18 


LDA S180D 


FE6F 29 


02 




AND #$02 


FE71 F0 


03 




BEO SFE76 


FE73 20 


53 


E8 


JSR SE853 


FE76 AD 


OD 


1C 


LDA $1C0D 


FE79 0A 






ASL A 


FE7A 10 


03 




BPL SFE7F 


FE7C 20 


BO 


F2 


JSR $F2P0 


FE7F 68 






PLA 


FE80 A8 






TAY 


FE81 68 






PLA 


FE82 AA 






TAX 


FE83 68 






PLA 


FE84 40 






RTI 


****************************** 


FE85 12 








FE86 04 








FE87 04 








FE88 90 








****************************** 


FE89 56 49 


44 


4D 


42 55 


FE8F 50 26 


43 


52 


53 4E 


****************************** 


FE95 84 05 


CI 


F8 


IB 5C 


FE9F 07 A3 


FO 


88 


23 OD 


****************************** 


FEA1 ED DO 


C8 


CA 


CC CB 


FEA7 E2 E7 


C8 


CA 


C8 EE 


****************************** 


FEAD 51 DD 


1C 


9E 


1C 


****************************** 


FEB2 52 57 


41 


4D 




****************************** 


FEB6 44 53 


50 


55 


4C 



interrupt routine 
save registera 

interrupt from serial bus 

no 

serve serial bus 

interrupt from timer 1? 

no 

IRO routine for disk controller 

get register back 



constants for disk format 

18, track for BAM and directory 

start of BAM at position 4 

4 bytes in BAM for each track 

$90 = 144, end of BAM, disk name 

table of command words 

•V, 'l',''D', 'M', 'B*, 'U' 

'P' , '&' , 'C , 'R' , *S' , 'N' 

lo-bytes of command addresses 



hi-bytes of command addresses 



bytes for syntax check 

file control methods 
•P 1 , 'W , 'A' , 'M' 

file types 

'D', 'S', 'P', 'U', 'L' 



************** 
FEBB 44 53 50 



**************** 
55 52 1st 



names of file types 
letters 'D 1 , ' S' , "P", 'U' 



■R' 
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FFOD 85 23 STA S23 
FFOF 60 RTS 

****************************** 

FF10 AA ... 
FFE1 ... hk 

****************************** 
FFE2 52 53 52 AA 
FFE6 C6 C8 8F F9 

****************************** user vectors 

UA, Ul, $CD5F 
UB, U2, $CD97 
UC, U3, $0500 
UD, U4, $0503 
UE, U5, $0506 
UF, U6, $0509 
UG, U7, $050C 
UH, U8, $050F 
UI, U9, $FF01 
(NMI vector not used) 

****************************** hardware vectors 

FFFC 0A EA $EAA0 RESET and UJ (U:) vector 

FFFE 67 FE $FE67 IRO vector 



FFEA 


5F 


CD 


FFEC 


97 


CD 


FFEE 


00 


05 


FFF0 


03 


05 


FFF2 


06 


05 


FFF4 


09 


05 


FFF6 


OC 


05 


FFF8 


OF 


05 


FFFA 


01 


FF 
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FECO 45 45 52 53 45 
FEC5 4C 51 47 52 4C 



2nd letters 'E' , 'E' , 
3rd letters ' L' , '0' , 






'E' 
'L' 



****************************** 
FECA 08 00 00 

****************************** 
FECD 3F 7F BF FF 



masks for bit command 



****************************** number of sectors per track 



FEDl 11 12 13 15 
****************************** 

FED5 4A 
FED6 04 
FED7 24 
FED8 IF 19 12 



17, 18, 19, 21 

contants for disk format 

'A' marker for 1541 format 

4 track numbers 

36, highest track number + 1 

31, 25, 18 tracks with change of 

number of sectors 



****************************** 
FEDB 01 FF FF 01 00 
****************************** 
FEE0 03 04 05 06 07 
****************************** 
FEE5 07 0E 

****************************** 
FEE7 6C 65 00 JMP ($0065) 

****************************** 

FEEA 8D 00 1C STA $1C00 
FEED 8D 02 1C STA $1C02 
FEF0 4C 7D EA JMP $EA7D 

****************************** 

FEF3 8A TXA 

FEF4 A2 05 LDX #$05 

FEF6 CA DEX 

FEF7 DO FD BNE $FEF6 

FEF9 AA TAX 

FEFA 60 PTS 

****************************** 



control bytes for head position 

addresses of buffers 
high bytes 



for UI command 

for diagnostic routine 

turn LED on 

port to output 

back to diagnostic routine 

delay loop for serial bus 
about 40 microseconds 

data output to serial bus 



FEFB 


20 AE 


E9 


JSR $E9AE 


CLOCK OUT 


FEFE 


4C 9C 


E9 


JMP $E99C 


DATA OUT : 


****************************** 


UI vector 


FF01 


AD 02 


02 


LDA $0202 




FF04 


C9 2D 




CMP #$2D 


• _ i 


FF06 


F0 05 




BEO $FF0D 




FF08 


38 




SEC 




FF09 


E9 2B 




SBC #$2B 


' + ' 


FF0B 


DO DA 




BNE SFEE7 


Indirect 
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FFOD 85 23 
FFOF 60 



STA $23 
RTS 



****** ********* ********* ****** 



FF10 AA 
FFE1 ... 



AA 



****************************** 
FFE2 52 53 52 AA 
FFE6 C6 C8 8F F9 

****************************** 



FFEA 5F CD 
FFEC 97 CD 
FFEE 00 05 
FFFO 03 05 
FFF2 06 05 
FFF4 09 05 
FFF6 0C 05 
FFF8 OF 05 
FFFA 01 FF 



USER vectors 

UA, Ul, SCD5F 

UB, U2, $CD97 

UC, U3, $0500 

UD, U4, $0503 

UE, U5, $0506 

UF, U6, $0509 

UG, U7, $050C 

UH, U8, $050F 

UI, U9, $FF01 

(NMI vector not used) 



****************************** 
FFFC 0A EA 
FFFE 67 FE 



hardware vectors 

$EAA0 RESET and UJ (U:) vector 

$FE67 IRQ vector 



268 



Anatomy of the 1541 Disk Drive 
Chapter 4: Programs and Tips for the 1541 Disk Drive 

4.1 Utility Programs 

4.1.1 Displaying all File Parameters 

The directory contains several important pieces of 
information about each file. Some information is not kept in 
the directory, such as the starting address of a program. 

These and other file parameters can be easily found ard 
displayed by the following program. The number and kind of 
file parameters are naturally dependent on the file type. A 
relative file, for instance, has no starting address. The 
following table presents the parameters displayed by this 
program. 



: PARAMETER 




FILE TYPE 


: 




DEL 


SEO 


PRG 


USR 


REL : 


: File closed? 


X 


X 


X 


X 


X : 


: File protected? 


X 


X 


X 


X 


X : 


: Allocated blocks 


X 


X 


X 


X 


X : 


: Side-sector blocks 










X : 


: Data blocks 










X : 


: Records 










X : 


: Start address 






X 






: Free blocks, disk 


X 


X 


X 


X 


X : 


: Allocated bl . disk 


X 


X 


X 


X 


X : 



This program is documented in detail so that the serious 
programmer can get a good overview of the file parameters. 
In addition, the variables used by the program ate 
explained. 

Variables used in the program: 

Numerical Variables 

T - Track of the actual block of the file entry in the 

directory 
S - Sector of the actual block of the file entry in the 

directory 
FL - Flag, set if the file name read from the diskette does 

not agree with the searched-for file 
TY - File type of the given file (byte of the entry) 
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FT - nybble of the file type (bits 0-3), contains the 

actual file type 
LB - Low byte of the starting address 
HB - High byte of the starting address 
BL - Number of allocated blocks in the file 
RL - Record length of a relative file 
DT - Track of the first data block of a program file, which 

contains the starting address 
DS - Sector of the first data block of a program file 
SA - Starting address of a program file 
BF - Number of free blocks on a disk 
BA - Number of allocated blocks on a disk 
BS - Number of side-sector blocks in a relative file 
RC - Number of records in a relative file 



String Variables 



FS - Name of the file to search for 

FF$- Contains the actual file name from the directory 

FTS- File type 

CLS- Indicates whether the file is closed or not 

(contains "YES" or "NO") 
PR$- Indicates whether the file is protected or not 

(contains "YES" or "NO") 
RES- contains CHRSI18), REVERSE ON 
RAS- contains CHR$(146), REVERSE OFF 



Program Documentation: 

110 Set the color code of the screen 

120 - 200 Program heading 

210 - 230 Asks if the names should be listed out. 

Sets flag FL to 1 and executes the routine at 

280-490. 
250 - 270 Input the filename. Asks for new input if the 

filename if greater than 16 characters. 
280 - 490 Reads the file name from the directory and eitner 

displays it (FL=1) or compares it to the desired 

filename . 
500 - 530 Reads byte (file type) of the file entry of the 

desired file and stores it in TY. Also, the right 

half-byte is stored in FT. 
540 - 590 Checks the file type and saves the text in FTS, 

and checks for invalid file type. 
600 - 610 Checks bit 7 of the file type byte (file closed?) 

and saves the result in CL$ . 
620 - 630 Checks bit 6 of the file type byte (file 

protected?) and saves the result in PR$. 
640 - 690 Reads the number of allocated blocks in the file 

from bytes 28 and 29 of the file entry and saves 

it in BL. 
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700 - 730 If it is relative file, the record length is read 
from byte 21 and saved in RL 

740 - 880 If it is a program file, the starting address of 
the file is taken from the first data block and 
stored in SA. 

890 - 980 Free blocks on the disk are calculated by reading 
the first byte of the track-marked BAM section 
and added to BF. The allocated blocks are calcu- 
lated by BA = 664 - BF 

990 -1020 Here the number of side-sector blocks (BS) of a 
relative file is calculated with the help of the 
record length (RL) and the number of allocated 
blocks in the file (RC). 

1040-1230 Here the data can be sent to the screen or the 
printer as one chooses. The file parameters are 
shown in REVERSE. 

1240-1280 The parameters of another file can be output. 

The program is written for a CBM 64. In spite of this, it 
can be run without major changes on a VIC 20. Only line 110, 
where the color of the screen is set, need be changed for 
the VIC 20. 

BASIC Listing of the Program: 

100 CLR 

110 POKE 53280, 2:POKE53281, 2 :PRINTCHR$ ( 158 ) ;CHR$(147) ; 

120 PRINT TAB(6) ;"===========================" 

130 PRINT TAB( 6) ; "DISPLAY ALL FILE PARAMETERS" 
140 PRINT TAB( 6) ;" = = = = ==== ====== = ===== = ======" 

150 PRINT:PRINT 

160 PRINT"WITH THIS PROGRAM, ALL PARAMETERS OF A' - 

170 PRINT" FILE CAN BE OUTPUT TO THE SCREEN OR TO" 

180 PRINT"A PRINTER AT YOUR OPTION." 

200 PRINT:PRINT 

210 PRINT"LIST FILENAMES (Y/N)?" 

220 GETX$:IFX$O"Y"ANDX$O"N"THEN220 

230 IF X$="Y"THENFL=1:GOSUB280 

240 FL=0 

250 INPUT"NAME OF THF FILE: " ; F$ 

260 IFLEN(F$X = 16THEN280 

270 PRINT'FILENAME TOO LONG! " :GOTO250 

280 OPEN 15,8,15,"I0":OPEN2,8,2,"#" 

290 T=18:S=1 

300 PRINT#15,"B-R";2;0;T;S 

310 PRINT#15,"B-P";2;0 

320 GET#2,X$:IFX$=""THENX$=CHR$(0) 

325 T=ASC(X$) 

330' GETX$:IFX$=""THENX$=CHR$(0) 

340 S=ASC(X$) 

350 FORX=0TO7 

360 PRINT#15,"B-P";2;X*32+5 

370 FF$="" 

380 FORY=0TO15 

39 GET#2,X$:IFXS=""THENX$=CHR$(0) 
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400 IF ASC(XS) = 160THEN43(1 

410 FFS=FF$+X$ 

4 20 NEXT Y 

430 IFF$=FF$THEN490 

440 IFFLTHENPRINTFF$ 

450 NEXT X 

460 IF T=0 THEN 480 

470 GOTO 300 

480 CLOSE2:CLOSE15 

485 IFFL=OTHENPRINT"FILENAME NOT FOUND! " :GOTO210 

490 IFFLTHENRETURN 

500 PRINT#15,"B-P";2;X*32+2 

510 GET# 2 ,X$ : IFX$ = " "THENX$ = CHR$ ( ) 

520 TY=ASC(X$) 

530 FT=TYAND15 

540 IFFT=0THENFT$="DELETED" 

550 IFFT=1THENFTS = "SE0UENTIAL" 

560 IFFT=2THENFTS="PROGRAM" 

570 IFFT=3THFNFTS="USER" 

580 IFFT=4THENFT$="RELATIVE" 

590 IFFT>4THENPRINT"INVALID FILE TYPE! " :GOTO200 

600 IFTYAND128THENCL$="YES":GOTO620 

610 CLS="NO" 

620 IFTYAND64THENPR$=" YES" :GOTO640 

630 PR$="NO" 

640 PRINT*15,"B-P";2;X*32+30 

650 GET* 2 ,XS : I FX$= " "THENX$=CHR$ ( ) 

660 LB=ASC(X$) 

670 GET# 2 ,X$ : I FX$=" " THENX$=CHRS ( ) 

680 HB=ASC(XS>*256 

690 BL=LB+HB 

700 IFFTO4THEN740 

710 PRINT#15,"B-P" ;2;X*32+23 

7 20 GET* 2 , XS : I FXS= " "THENXS = CHR$ ( ) 

730 RL=ASC(X$) 

740 IFFTO2THEN890 

750 PRINT#15."B-P";2;X*32+3 

7 60 GET#2,X$:IFX$=""THENX$=CHR$(0) 
770 DT=APC(X$) 

780 GET* ? ,X$ : I FXS = " "THENX$ = CHR$ ( ) 

790 DS=ASC(X$) 

800 OPEN3,8,3,"#" 

810 PRINT#15,"B-R" ;3;0;DT;DS 

820 PRINT#15,"B-P";3;2 

8 30 GET#3,X$:IFX$=""THENX$=CHR$(0) 
840 LB=ASC(XS) 

8 50 GET* 3 ,X$ : I FX$ = " "THENX$ = CHRS ( ) 

860 HB=ASC(X$)*256 

870 SA=LB+HB 

880 CLOSE3 

890 PRINT#15,"B-R";2;0;18;0 

900 BF=0 

910 FORI=4TOl40STEP4 

920 IFI=72THEN960 

930 PRINT* 15, "B-P" ;2;I 
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940 GET#2 ,X$ : IFX$=" "THENX$=CHR$ ( ) 

950 BF=ASC(X$)+BF 

960 NEXT 

980 BA=664-BF 

990 IFFTO4THEN1040 

1010 BS=BL/121:IFBSOINT(BS)THENBS=INT(BS+l) 

1020 RC=INT( ((BL-BS)*254)/RL) 

1040 PRINTCHRS ( 147 ); "SCREEN OR PRINTER (S/P)?" 

1050 GETX$:IFXS<>"S"ANDX$O"P"THEN1050 

1060 RE$=CHR$(18) :RA$=CHR$ ( 146 ) 

1070 IFX$="S"THENOPENl ,3:PRINT#1 , CHR$ ( 147) 

1080 IFX$="P"THEN0PEN1,4 

1090 PRINT#1,"FILE PARAMETERS ";RES;FS;ROS 

1100 PRINT* 1," " 

1110 PRINTf 1,"FILE TYPE: "; RES ; FTS ; RAS : PRINT* 1 

1120 PRINT#1,"FILE CLOSED: "; RES ; CLS ; RAS : PRINT* 1 

1130 PRINT#1, "FILE PROTECTED: "; RES ;PRS ; RAS : PRINT* 1 

1140 PRINT* 1," ALLOCATED BLOCKS: "; RES ; BL; RAS : PRINT* 1 

1150 IFFTO4THEN1200 

1160 PRI NT* 1," RECORD LENGTH: "; RES : RL: RAS : PRINT* 1 

1170 PRINT#1, "SIDE-SECTOR BLOCKS: "; RES ; BS ; RAS : PRINT* 1 
1180 PRINT*1,"DATA BLOCKS: " ; RES ;BL-BS ; RAS :PRINT# 1 

1190 PRINT* 1, "RECORDS: "; RES ; RC; RAS : PRINT* 1 

1200 IFFT=2THENPRINT#1. "START ADDRFSS: "; 

RE$;SA;RAS:PRINT#1 
1210 PRINT*1,"FREE BLOCKS (DISK): "; RES ;BF ; RA$ : PRINT* 1 
1220 PRI NT* 1," ALLOCATED BLOCKS ( D) :"; RES ; BA; RAS : PRINT* 1 
1230 CLOSE1 

1240 PRINT"MORE (Y/N)?" 
1250 CLOSE2-.CLOSE15 

1260 GETXS:IFX$O"Y"ANDX$O"N"THENl260 
1270 IFX$="Y"THEN100 



4.1.2 Scratch-protect Files - File Protect 

As already mentioned, it is possible to protect files on the 
VIC-1541 diskette and save this information in the 
directory. A file's type is contained in byte of the file 
entry. Bit 6 denotes a protected file. If this bit is set to 
1, the file can no longer be deleted with the SCRATCH 
command. But because the DOS has no command to set this bit 
an alternative way must be used to protect a file. 

With the following program, you can: 

* display all files on the disk 

* protect files 

* unprotect files 

* erase files 

This program can delete protected files as well as 
unprotected files. If you wisn to delete a protected file, 
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you must confirm it. This program is also documented with a 
variable usage and descriptions so that you can use these 
techniques in your own programs. 

List of Variables: 

DF - Flag, set in the routine "read/search file" if the 

desired filename is found 
FL - Set if the routine "read/search file" is only to be 

used for listing files 
FT - Variable for storing the filetype 
T - Track of the actual block of the file entry 
S - Sector of the actual block of the file entry 
TT - Track, in which the file entry block of the desired 

file is found 
SS - Sector, in which the file entry block of the desired 

file is found 
FFS - last filename read from the directory 
F$ - filename to search for 



Program Documentation: 

100 Set the screen color 

110 - 230 Program header and option menu 

240 - 260 Read the menu choice and call the appropriate 

subroutine 
270 Back to the option menu 
280 - 350 Subprogram "list all files" 

310 Erase screen 

320 Set flag FL to list files in the subroutine 
"read/search file" 

350 Reset the flag and jump back 
360 - 600 Subroutine "protect file" 

390 Call subroutine "input filename" 

400 Call the subroutine "read/search file" 
410 - 450 Test if the file is found 
460 - 480 Read file type and store in FT 
490 - 500 Test if the file is already protected 

510 Protect file (bit 6 to 1 ) 
520 - 550 Transfer the file type to the buffer and write the 
block to disk 

560 Close the channel 
570 - 600 Message "File protected" and jump back 
610 - 850 Subroutine "unprotect file" 

640 Call subroutine "input filename" 

650 Call subroutine "read/search file" 
660 - 700 Test if file is found 
710 - 730 Read file type and store in FT 
740 - 750 Test if the file is already unprotected 

760 Unprotect the file (bit 6 to ) 
770 - 800 Transfer the file type to the buffer and write 
the block to the disk 

810 Close the file 
820 - 850 End the subroutine 
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860 -1170 Subroutine "erase a file" 

890 Call the subroutine "input filename" 
900 Call the subroutine "read/search file" 
910 - 950 Test if the file is found 
960 - 980 Read the file type and save in FT 

990 Test if the file is protected 
1000-1030 Indicate that the file is protected, with the 

possibility to erase it anyway 
1040-1060 Ask if the file should really be erased 

1070 Bit 6 set back, if protected 
1080-1110 Transfer the file type to the buffer and write 
the block to the disk 
1120 Initialize the diskette 
1130 Erase the file 
1140-1170 End the subroutine 
1190-1560 Subroutine "read/search file" 

1220 Open the command and data channels 
1230-1240 Read directory and set buffer pointer 
1250-1320 Test if the disk contains a write protect. For 

this purpose, the directory is written back to the 
disk unchanged (line 1250). If the disk has a 
write protect tab on it, the error message 26, 
WRITE PROTECT ON will occur. 
1330 Initial values for the track and sector variables 
are set 
1340-1350 Read the file entry block and position the buffer 

pointer to the first byte 
1360-1390 Read the address of the next file entry block 
1400-1530 Loop to read filenames. The names are then either 
listed on the screen or compared to the desired 
filename, based on the value of flag FL 
1540-1560 If the variable T (track) contains zero, no more 
file entry blocks follow and the subroutine ends. 

BASIC Listing of the Program: 

100 POKE 53280, 2:POKE53281, 2 sPRINTCHRS ( 158 ) ;CHR$(147) ; 

110 PRINTTAB(8) ;"=======================" 

120 PRINTTAB(8) ; "ERASE AND PROTECT FILES" 

130 PRINTTAB(8) ;"=======================" 

140 PRINT:PRINT 

150 PRINT"WITH THIS PROGRAM, FILES CAN BE" 

160 PRINT"PROTECTED, ERASED, AND UNPROTECTED" 

180 PRINT:PRINT 



190 PRINTTAB16) 
200 PRINTTAB16) 
210 PRINTTAB16) 
220 PRINTTAB(6) 
230 PRINTTAB(6) 



-1- LIST ALL FILES": PRINT 
-2- PROTECT A FILE": PRINT 
-3- UNPROTECT A FILE": PRINT 
-4- ERASE A FILE":PRINT 
-5- END THE PROGRAM" : PRINT 

240 GETX$ : IFX$=" "ORVAL( X$ )<10RVAL( X$ ) >5THEN240 

250 IFVAL(X$)=5THENEND 

260 ONVAL(X$)GOSUB280,360,610,860 

270 GOTO 100 

280 REM 

290 REM LIST ALL FILES 
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300 REM 

310 PRINTCHR$(147) 

320 FL=1:GOSUB1190 

330 PRINT:PRINT"RETURN FOR MORE" 

340 INPUTX$ 

350 FL=0: RETURN 

360 REM 

370 REM PROTECT A FILE 

380 REM 

390 GOSUB1580 

400 GOSUB1190 

410 IFDF=1THEN460 

4 20 PRINT" FILE NOT FOUND! ": PRINT 

430 PRINT"RETURN FOR MORE" 

440 INPUTX$:CLOSE2:CLOSE15 

450 RETURN 

460 PRINT#15,"B-P";2;X*32+2 

470 GET#2,X$:IFX$=""THENX$=CHR$(0) 

480 FT=ASC(X$) 

490 IF(FT AND 64)=0 THEN 510 

500 PRINT"FILE IS ALREADY PROTECTED; " :PRINT:GOTO430 

510 FT=(FT OR 64) 

520 PRINT#15,"B-P" ;2;X*32+2 

530 PRINT#2,CHR$(FT) ; 

540 PRINT#15,"B-P" ;2;0 

550 PRINT#15,"U2";2;0;TT;SS 

560 CLOSE2:CLOSE15 

570 PRINT" FILE PROTECTED." 

580 PRINT" RETURN FOR MORE" 

59 INPUTXS 

600 CLOSE2:CLOSEl 5: RETURN 

610 REM 

6 20 REM UNPROTECT A FILE 

630 REM 

640 GOSUB1580 

650 GOSUB1190 

660 IFDF=1THEN710 

670 PRINT"FILE NOT FOUND! " :PRINT 

680 PRINT"RETURN FOR MORE" 

690 INPUTX$:CLOSE2:CLOSE15 

700 RETURN 

710 PRINT#15,"B-P";2;X*32+2 

7 20 GET#2,X$:IFX$=""THENX$=CHR$(0) 
730 FT=ASC(X$) 

740 IF (FT AND 64 ) =64THEN760 

750 PRINT"FILE IS ALREADY UNPROTECTED! " :PRINT:GOTO680 

760 FT=(FTAND255-64) 

770 PRINT#15,"B-P ,, ;2;X*32+2 

780 PRINT#2,CHRS(FT) : 

790 PRINT#15,"B-P";2;0 

800 PRINT*15,"U2" ;2;0;TT:SS 

810 CLOSE2:CLOSE15 

820 PRINT"FILE UNPROTECTED." 

830 PRINT"RETURN FOR MORE" 

840 INPUTX$ 
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850 RETURN 

860 REM 

870 REM ERASE A FILE 

880 REM 

890 GOSUB1580 

900 GOSUB1190 

910 IFDF=1THEN960 

920 PRINT"FILE NOT FOUND! ": PRINT 

930 PRINT"RETURN FOR MORE" 

940 INPUTX$:CLOSE2:CLOSE15 

950 RETURN 

960 PRINT* 15, "B-P" ;2;X*32+2 

970 GET# 2 ,X$ : I FX$ = " "THENX$=CHR$ ( ) 

980 FT=ASC(X$) 

990 IF(FT AND 64 ) =OTHEN1040 

1000 PRINT"WARNING! FILE IS PROTECTED!" 

1010 PRINT"UNPROTECT AND ERASE (Y/N)?" 

10 20 GETX$:IFX$<>"Y"ANDX$<>"N"THEN1020 

1030 IFX$="N"THEN1170 

1040 PRINT"ARE YOU SURE (Y/N)?" 

1050 GETX$:IFX$O"Y"ANDX$O"N"THEN1050 

1060 IFX$="N"THEN1170 

1070 FT=(FT AND 255-64) 

1080 PRINT#15,"B-P";2;X*32+2 

1090 PRINT#2,CHRS(FT) ; 

1100 PRINT#15,"B-P";2;0 

1110 PRINT#15,"U2";2;0;TT;SS 

1120 PRINT#15,"I0" 

1130 PRINT#15,"S:"+F$ 

1140 PRINT"FILE ERASED." 

1150 PRINT"RETURN FOR MORE" 

1160 INPUTXS 

1170 CLOSE2-.CLOSE15: RETURN 

1180 REM 

1190 REM 

1200 REM READ / SEARCH FILE 

1210 REM 

12 20 OPENIS.S.IS/'IO" :OPEN2 ,8 , 2 , "# " 

1230 PRINT#15,"B-R";2;0;18;0 

1240 PRINT#15,"B-P";2;0 

1250 PRINT#15,"U2";2;0;18;0 

1260 INPUT#15,X1S 

1270 IF VAL(X1$)<>26 THEN 1330 

1280 PRINT"PLEASE REMOVE THE WRITE PROTECT TAB FROM" 

1290 PRINT"THE DISKETTE BEFORE USING THIS PROGRAM." 

1300 PRINT" RETURN FOR MORE" 

1310 INPUTXS 

1320 CLOSE2:CLOSE15: RETURN 

1330 T=18:S=1:TT=18:SS=1 

1340 PRINT#15,"B-R";2;0;T;S 

1345 TT=T:SS=S 

1350 PRINT#15,"B-P";2;0 

1360 GET#2,X$:IFX$=""THENX$=CHR$(0) 

1370 T=ASC(X$) 

1380 GET#2,X$:IFX$=""THENX$=CHR$(0) 
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1390 S=ASC(X$) 

1400 FORX=0TO7 

1410 PRINT*15,"B-P":2:X*32+2 

14 20 GET# 2 ,X$ : I FX$ = " "THENX$=CHR$ ( ) 

1430 IFASC(X$)=0THEN153<1 

1440 PRINT#15,"B-P";2;X*32+5 

1450 FF$="" 

1460 FORY=0TO15 

1470 GET#2,X$:IFXS=""THENX$=CHR$(0) 

1480 IFASC(X$)=160THEN1500 

1490 FF$=FF$+X$ 

1500 NEXTY 

1510 IFFLTHENPRINTFF$:GOTO1530 

1520 IFF$=FF$THENDF=l:GOTO1570 

1530 NEXTX 

1540 IFTO0THEN1340 

1550 CLOSE2:CLOSE15 

1560 IFFL=OTHENPRINT" FILENAME NOT FOUND! ": FORI=lTO2000 : 

NEXT 
1570 RETURN 

1580 REM 

1590 REM INPUT FILENAME 

1600 REM 

1610 PRINT:PRINT 

1620 INPUT"FILENAME:";F$ 

1630 IFLEN(F$X=16THEN1650 

1640 PRINT"FILENAME TOO LONG! " :GOTO1620 

1650 DF=0:FL=0 

1660 RETURN 

This utility program was written for the CBM 64. This 
version can also be run on the VIC 20. Only line 100 which 
sets the screen color on the CBM 64 need be changed or 
ignored. If you value perfect video output, lines 110-230 
can also be changed to accommodate the VIC 20's smaller 
screen size. 



4.1.3 Backup Program - Copying a Diskette 

The VIC 1541 disk drive does not allow disks to be 
duplicated since it is a single drive, as the double drives 
permit with the COPY or BACKUP commands of BASIC 4.0. With 
the 1541, each program to be copied must be transferred 
through the computer. 

Here's an example of how you might copy a diskette using a 
single disk drive: 

First, the BAM as well as the names and IDs of the disk to 
be copied are read into the computer. From the information 
in the BAM, you can determine which blocks of the original 
diskette are used. In order to save time, only the allocated 
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blocks are copied. Then a direct access file is opened and 
the first 169 (as many as will fit in the memory of tt-e 
Commodore 64) allocated blocks are read. Then the user is 
asked to put a new diskette in the drive. The new diskette 
is then formatted with the name and ID of the original 
diskette. Now the previously read blocks are written to the 
diskette. The next 169 blocks of the original diskette are 
read into memory and written out to the destination 
diskette. This ends after four disk swaps, at which time the 
entire diskette will have been copied. 

The program is written in BASIC except for the portion which 
reads and writes the direct access file. This part is 
written in machine language which is considerably faster 
than a GET* loop in BASIC. Because of the nature of the 
program, the number of diskette changes is dependent on the 
free storage in the computer. A VIC 20 with a 16K expansion 
requires 11 changes of original and destination diskettes. 

Here is a time comparison between this program and 
duplication on a dounle drive with the same capacity. Our 
program requires about 20 minutes, while the CBM 4040 does 
it in aDout 3 minutes. 

Duplicating a diskette with this program is quite simple. 
You need only follow the messages on the screen to insert 
the original or destination diskette. The program does the 
rest for you. 



100 REM BACKUP PROGRAM C64 - VIC 1541 

110 REM 

120 POKE56,23:CLR:GOSUB640 

130 0PEN1,8,15 

140 DIM B%(35,23) ,S%(35) ,2(7) ,A$(1) 

150 A$(0) = "DESTINATION":A$( UNORIGINAL" :R=1 

160 AD=23*256:GOSUB590 

170 POKE250,0:POKE251, AD/256 

180 GOSUB530:GOSUB290 

190 PRINTNS"BLOCKS TO COPyiPRINT 

200 T=1:S=0 

210 FORI=1T04:TT=T:SS=S:R=1:IFI=1THEN240 

220 IFR=0ANDI=lTHENGOSUB450:GOTO240 

230 GOSUB590 

240 POKE251, AD/256 :F0RJ=1T0169 

250 IFB%(T,S)=0THENGOSUB570 

260 S=S+1: IFS=S%(T)THENT=T+1:S=0:IFT=36THENJ=169 

270 NEXT: I FRTHENR=0 :T=TT: S=SS .-GOTO220 

280 NEXT:GOTO510 

290 T=18:S=0:GOSUB570 

300 NS=0:FORT=lTO35:S=0 

310 NS=NS+S%(T)-PEEK(AD+4*T) 

320 F0RJ=1T03 

330 B=PEEK(AD+4*T+J) 

340 FORI=0TO7 
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340 FORI=0TO7 

350 B%(T,S)=B AND Z(I):S=S+1 

360 NEXT I, J 

370 FOR S=S%(T)T023 

380 B%(T,S>=-1 : NEXT S,T 

390 FOR I=0TO15 

400 A=PEEK(AD+144 + I> 

410 IFAO160THENNS = N$+CHR$(A) 

4 20 NEXT 

430 I$=CHR$(PEEK(AD+162) ) +CHR$ ( PEEK( AD+163 ) ) 

440 PRINTNS,I$: RETURN 

450 PRINT"PLEASE INSERT NEW DISKETTE" 

460 PRINT"AND PRESS RETURN" : PRINT:POKE198 ,0 :CLOSE2 

470 GETA$:IFA$OCHR$(13)THEN470 

480 PRINT#1,"N0: ,, N$","I$ 

490 INPUT* 1 ,A,B$ ,C , D: I FATHENPRINTA" , "BS" , "C" , "D:END 

500 GOTO630 

510 CLOSE2:CLOSEl:END 

5 20 REM SECTORS PER TRACK 
530 FORT=lT035 

540 S%(T)=21:IFT>17THENS%(T)=19:IFT>24THENS%(T)=18: 

IFT>30THENS%(T)=17 
5 50 NEXT 

560 FORI=0TO7:Z(I)=2tl:NEXT:RETURN 
570 IFRTHENPRINT#1,"U1 2 0"T; S :SYSIN : RETURN 
580 PRINT*1,"B-P 2 0" :SYSOUT: PRINT# 1 , "U2 2 0"T; S: RETURN 
590 CLOSE2:PRINT"PLEASE INSERT "A$(R)" DISKETTE." 
600 PRINT"AND PRESS RETURN" : PRINT: POKE198 ,0 
610 GETA$:IFA$OCHR$(13)THEN610 
620 PRINT#1,"I0" 
630 OPEN2,8,2,"#":RETURN 

640 FOR I = 828 TO 873 : REM READ MACHINE LANG. PROGRAM 
650 READ X : POKE I ,X : S=S+X : NEXT 

660 DATA 162, 2, 3 2,198,255,160, 0, 32,207,255,145,250 
670 DATA 200,208,248,230,251, 32,204,255, 96,198, 1,162 
680 DATA 2, 3 2,201,255,160, 0,177,250, 32,210,255,200 
690 DATA 208,248,230,251, 32,204,255,230, 1, 96 
700 IF S07312 THEN PRINT "ERROR IN DATA!!":END 
710 IN=828:OUT=849:RETURN 



4.1.4 Copying Individual Files to another Diskette 

The following, program permits you to copy individual files 
from one diskette to another. The files can be programs 
(PRG), sequential files (SEO) or user files (USP). Relative 
files cannot he copied with this program; these can be 
copied with a BASIC program that reads all data records into 
a string array and then writes them back again into a new 
file. 

In the first pass, the program reads the complete file into 
the memory of the Commodore 64. Then the destination 
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Next the complete file is written on the second disk. The 
computer has 49 Kbytes for data storage; you can nandle up 
to 196 blocks on the diskette. 

For reasons of speed, the reading and writing of the data is 
performed by a machine language program, which is stored in 
DATA statements. 

The program is suited for copying sequential files as 
already mentioned, as well as programs of all kinds; the 
start address (of a machine language program) is not 
relevant. 



100 REM FILE COPIER PROGRAM C64 

110 REM 

120 POKE 56,12 : CLR 

130 GOSUB 1000 

140 INPUT"FILENAME " ; N$ 

150 PRINT"FILE TYPE "; 

160 GETTS :IFT$<>"S"ANDT$<>"P"ANDT$<>"U"THEN160 

170 PRINTT$:PRINT 

180 PRINT"PLEASE INSERT ORIGINAL DISK" 

190 PRINT"AND PRESS A KEY":PRINT 

200 GETA$:IFA$=""THEN200 

210 OPEN 2,8 ,2,NS+" ,"+T$ 

220 POKE 3,0:POKE 4,12:SYS 866 

230 CLOSE 2 

240 PRINT"PLEASE INSERT DESTINATION DISK" 

250 PRINT"AND PRESS A KEY":PRINT 

260 GETAS:IFAS=""THEN260 

270 OPEN 2,8,2,N$+"."+TS+",W" 

280 POKE 3,0:POKE 4,12:SYS 828 

290 CLOSE 2 : END 

1000 FOR I = 828 TO 898 

1010 READ X : POKE I ,X : S=S+X : NEXT 

1020 DATA 162, 2, 32,201,255,198, 1,160, 0, 56,165, 3 

1030 DATA 229, 5,165, 4,229, 6,176, 13,177, 3, 32,210 

1040 DATA 255,230, 3,208,236,230, 4,208,232,230, 1, 76 

1050 DATA 204,255,162, 2, 32,198,255,160, 0, 32,207,255 

1060 DATA 145, 3,230, 3,208, 2,230, 4, 36,144, 80,241 

1070 DATA 165, 3,133, 5,165, 4,133, 6, 76,204,255 

1080 IF S08634 THEN PRINT "ERROR IN DATA !!":END 

1090 RETURN 



4.1.5 Reading the directory from within a program 

Sometimes applications programs store user data in a file 
under a desired name. If you want to use this file again, 
but you cannot remember the file name, then you have a 
problem. If this happens, you must exit the program, search 
for the name in the directory, reload the program and start 
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again. To avoid this, you can include a directory listing 
routine in your program. If you forget the filename, you can 
display the directory with a function key, for example, 
without the need to leave the program. Here is a sample of 
such a routine: 

100 PRINTCHRS(147) ; 

110 OPEN15,8,15,"I0":OPEN2,8,2,"#" 

120 T=18:S=1 

130 PRINT#15,"B-R";2;0;T;S 

140 PRINT#15,"B-P";2;0 

150 GET#2,XS:IFXS=""THENX$=CHRS(0) 

160 T=ASC(X$) 

170 GET#2,X$:IFX$=""THENX$=CHR$(0) 

180 S=ASC(XS) 

190 FORX=0TO7 

200 PRINT#15,"B-P";2;X*32-t-5 

210 FF$="" 

220 FORY=0TO15 

230 GET#2 ,X$ : IFX$=" "THENX$=CHRS (0) 

240 IFASClX$)=160THEN270 

250 FF$=FF$+X$ 

260 NEXTY 

270 IFA=0THENA=1:PRINTFF$; :GOTO290 

280 A=0:PRINTTAB(20) ;FF$ 

290 NEXTX 

300 IFTO0THEN130 

310 CLOSEl:CLOSE2 

320 PRINT"RETURN FOR MORE" 

330 INPUTXS 

340 END:REM IF SUBROUTINE, THEN RETURN HERE 



In order to select the filename, the directory is printed on 
the screen. Should this program be used as a subroutine 
(called with GOSUB) line 340 must contain RETURN instead of 

END. 

We used this routine in the utility programs in sections 
4.1.1 and 4.1.2. 
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4.2 The Utility Programs on the TEST/DEMO Disk 

There are many 1541 owners that know little about the 
programs contained on the Test/Demo disk. The main reason is 
that these programs are largely undocumented. The following 
descriptions of these programs should help you: 



4.2.1 DOS 5.1 

The DOS 5.1 simplifies the operation of the VIC-1541 DOS. It 
can run on the VIC-20 or Commodore 64. To load DOS 5.1 on 
the VIC-20, give the commands 

LOAD"VIC-20 WEDGE", 8 
RUN 

This is the loader for DOS 5.1 for the VIC 20. 

If you want to use it on the Commodore 64, give the 
commands: 

LOAD"C-64 WEDGE", 8 
RUN 

This loads DOS 5.1 into the CBM 64. 

What does this DOS 5.1 offer? It allows you to send 
convenient commands to the 1541 disk drive. If, for example, 
you want to display the directory on the screen, you use the 
DOS 5.1 command £$ or >$. This does not erase the program in 
memory. 

The individual commands of the DOS 5.1 

Command Function 

@$ or >$ Display the directory 

ev or >V Same function as "VALIDATE" 

@C:... or >C:... Copy files (COPY) 

*>file or /file Load program 

@ or > Read and display error message 

GN:... or >N:... Format a diskette 

@I or >I Intitialize the disk 

§R:... or >R:... Rename a file (RENAME) 

GS:... or >S:... Erase a f ile _( SCRATCH) 

@#n or >#n Change disk device to n 
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4.2.2 COPY/ ALL 

With the program COPY/ALL files can be copied between disk 
drives with different addresses. A drive must be changed 
from device address 8 with the program DISK ADDR CHANGE 
before this can occur. After starting the program, the 
message : 

disk copy all j im butterfield 

from unit? 8 

appears on the screen. Here you give the device address of 
the disk drive from which you wish to get the files. If this 
address is 8, just press RETURN. After this you give the 
corresponding drive number of this unit (always for single 
drives). In this manner you also give trie device address of 
the destination drive. Once this has occurred, the program 
asks 

want to new the output disk 
?n 

You are being asked if the destination diskette should te 

formatted. You answer with 'y' (yes) or 'n' (no). 

Then you can choose the files you want to copy with the 

wildcard (*). If all files are supposed to be copied, just 

give the asterisk. 

Now the program gives the message 

hold down ' y" or 'n' key to select 

The program displays the files on the original disk, which 

you can select witn the 'y' key (yes) or "n 1 (no). The files 

by which you pressed 'y' will be copied. 

If, during the copying process, asterisks (***) appear behind 

the files, it means that an error has occurred. 

If there is not enough room on the destination disk, "*** 

output disk full" and "do you have a new one" appears. The 

remaining files can be put on another formatted diskette. To 

do this, answer 'y* when ready. 

At the the conclusion of the copying process, the number of 
free blocks on the destination disk is displayed. 



4.1.3 DISK ADDR CHANGE 

With this program, the device address of a disk drive can be 
changed through software. After starting the program, turn 
all drives off except for the one you wish to change. Now 
enter the old and new device addresses. 
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After this, the address is changed and the other drive can 
be turned back on. 

The following drives can be changed with this program: 

2031 DOS V2.6 

2040 DOS VI. 1 

4040 DOS V2.1 

4040 DOS V2.7 

8050 DOS V2.5 

8050 DOS V2.7 

8250 DOS V2.7 



4.2.4 DIR 

This is a small help program with the following 
possibilites: 

d - display the directory on the screen 

> - With this character, a disk command can be given 
in shortened form (for example, >N:TEST,KN to 
format a diskette) 

q - exit the program 

s - display the error channel 

These possibilities are also found in DOS 5.1, along with 
other commands. 



4.2.5 VIEW BAM 

With this utility program you can view the usage of diskette 
blocks on the screen. This table displays the sectors in 
columns and the tracks in rows. Crosses indicate free blocks 
and reverse crosses indicate allocated blocks, 'n/a' means 
tnat tnese blocks do not exist on the track. 

After outputting the table, the diskette name and the number 
of free blocks is displayed. 



4.2.6 CHECK DISK 

The utility program CHECK DISK tests every block on the 
diskette by writing to and reading from it. The current 
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block and the total number of tested blocks is displayed on 
the screen. 



4.2.7 DISPLAY TSS 

If you are interested in the construction of the individual 
blocks of the disk and want to display these on the screen, 
this utility program will help you. After starting the 
program you give the desired track and sector. This will 
then be sent to the printer or screen. The DISK-MONITOR 
contained in this book is a easier to use, because it allows 
you to change blocks and save them again. 



4.2.8 PERFORHANCE TEST 

This program makes it possible to test the mechanics of the 
VIC-1541 disk drive. To accomplish this, all the access 
commands are executed, in the following order: 

1. Disk is formatted 

2. A file is opened for reading 

3. Data are written to this file 

4. The file is closed again 

5. This file is opened for reading 

6. The data are read 

7. The file is closed again 

8. The file is erased 

9. Track 35 is written 

10. Track 1 is written 

11. Track 35 is read 

12. Track 1 is read 

After each access of the disk the error channel is 
displayed. In this manner, it can be established which 
access of the disk is not executed properly. 

When using this program, use only diskettes containing no 
important data because the entire diskette is erased during 
the testing. 
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4.3 BASIC-Expansion and Programs for easy Use of the 1541 

4.3.1 Input strings of desired length from the disk 

Reading data from the disk with the INPUT# statement has one 
irajor disadvantage - only data items having fewer than 88 
characters can be read. This is because the input buffer of 
the computer is limited. In addition, not all characters can 
be read with the INPUT* statement. If a record contains a 
comma or colon, BASIC views it as a separating character and 
the remainder of the input is assigned to the next variable. 
If the INPUT* statement has only one variable, the remainder 
is ignored and the next INPUT* statement continues reading 
past the next carriage return (CHRS(13)). Tne alternative, 
to read the input with a GET* statement but results in much 
slower input. 

To avoid these disadvantages, we can use a small machine 
language routine. 

We will change the INPUT* statement, so that we can specify 
the number of characters to be read. To distinguish it from 
the normal INPUT* statement, we name the command INPUT*. The 
syntax looks like this: 

INPUT* lfn, len, var 

Lfn is the logical file number of the previously OPENed 
file, len is the number of characters to be read, and var is 
the string variable into which the characters are to be 
read. A program excerpt might look like this: 

100 OPEN 2, 8, 2, "FILE" 
110 INPUT* 2,100,A$ 

This reads a string of 100 characters from the opened file 
into AS. This procedure is especially suited for relative 
files, because a complete record can be read with one 
command after positioning the record pointer. The 
partitioning of record into fields can be accomplished with 
the MIDS function. An elegant method of creating records is 
described in the next section. 

With this procedure it is no longer necessary to end a 
record with a carriage return. You can especially make use 
of the maximum record length with relative files: 

100 OPEN 1,8,15 

110 OPFN 2,8,2, "REL-FILE,L,"+CHRS(20) 

120 PRINT#1, "P"+CHR$(10)+CHR$(0)+CHR$(1) 

130 PRINT#2, "12345678901234567890"; 

140 PRINT#1, "P"+CHR$(10)+CHRS(0)+CHRS(1) 



287 



Anatomy of the 1541 Disk Drive 



150 INPUT* 2, 20, AS 
160 PRINT AS 

12345678901234567890 



Here is the assembler listing for the machine language 
program. It resides in the cassette buffer just like a 
loader program in BASIC for the Commodore 64 and VIC 20. 

110: 



033C 






; INPUT* 


LFN, 


LEN,AS 


033C 






INPUT 


EOU 


$85 


033C 






STAR 


EOU 


SAC 


033C 






BASVEC 


EOU 


$308 


033C 






CHRGET 


EOU 


S73 


033C 






CHRGOT 


EOU 


CHRGET + 6 


033C 






; C64 VERSION 




033C 












033C 






CHKIN 


EOU 


SE11E 


033C 






BASIN 


EOU 


$E112 


033C 






CHKCOM 


EOU 


SAEFD 


033C 






INTER 


EOU 


$A7AE 


033C 






EXECOLD 


EOU 


$A7E7 


033C 






INPUTOLD 


EOU 


$ABBF 


033C 






FINDVAR 


EOU 


$B08B 


033C 






STRRES 


EQU 


SB475 


033C 






FRESTR 


EOU 


$B6A3 


033C 






GETBYT 


EOU 


$B79E 








; VIC 20 


VERSION 


033C 






CHKIN 


EOU 


SE11B 


033C 






BASIN 


EOU 


SE10F 


033C 






CHKCOM 


EOU 


$CEFD 


033C 






INTER 


EOU 


$C7AE 


033C 






EXECOLD 


EOU 


$C7E7 


033C 






INPUTOLD 


EOU 


SCBBF 


033C 






FINDVAR 


EOU 


$D08B 


033C 






STRRES 


EOU 


SD475 


033C 






FRESTR 


EOU 


$D6A3 


033C 






GETBYT 


EOU 


$D79E 








; COMMON 


LABELS 


033C 






VARADR 


EOU 


$49 


033C 






CLRCH 


EOU 


SFFCC 


033C 






PARA 


EOU 


$61 


033C 






' 


ORG 


828 


033C 


A9 


47 


INIT 


LDA 


#<TEST 


033E 


A0 


03 




LDY 


#>TEST 


0340 


8D 


08 


03 


STA 


BASVEC 


0343 


8C 


09 


03 


STY 


BASVEC+1 
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580 


0346 


60 






600 


0347 


20 


73 


CO TEST 


610 


034A 


C9 


85 




620 


034C 


F0 


06 




630 


034E 


20 


79 


00 


640 


0351 


4C 


E7 


A7 


650 


0354 


20 


73 


00 FOUND 


660 


0357 


C9 


AC 




670 


0359 


F0 


06 




680 


035B 


20 


BF 


AB 


680 


035E 


4C 


AE 


A7 


690 


0361 


20 


9B 


B7 OKSTAR 


700 


0364 


20 


IE 


El 


710 


0367 


20 


FD 


AE 


720 


036A 


20 


9E 


B7 


730 


036D 


8A 






730 


036E 


48 






740 


036F 


20 


FD 


AE 


750 


0372 


20 


8B 


BO 


760 


0375 


85 


49 




760 


0377 


84 


4A 




770 


0379 


20 


A3 


B6 


780 


037C 


68 






790 


037D 


20 


75 


B4 


800 


0380 


A0 


02 




810 


0382 


B9 


61 


00 STORE 


820 


0385 


91 


49 




830 


0387 


88 






840 


0388 


10 


F8 




850 


038A 


C8 






860 


038B 


20 


12 


El FETCH 


870 


038E 


91 


62 




880 


0390 


C8 






890 


: 0391 


C4 


61 




900 


0393 


DO 


F6 




910 


0395 


20 


CC 


FF 


910 


0398 


4C 


AE 


A7 



RTS 

JSR 
CMP 
BEO 
JSR 
JMP 

JSR 
CMP 

BEO 
JSR 
JMP 
JSR 

JSR 
JSR 
JSR 
TXA 
PHA 
JSR 
JSR 

STA 
STY 
JSR 
PLA 
JSR 

LDY 
LDA 
STA 
DEY 
BPL 
INY 
JSR 
STA 
INY 
CPY 
BNE 
JSR 
JMP 



CHRGET 

#INPUT 

FOUND 

CHRGOT 

EXECOLD 

CHRGET 
#STAR 

OKSTAR 
INPUTOLD 
INTER 
GETBYT-3 

CHKIN 

CHKCOM 

GETBYT 



TO THE OLD 
ROUTINE 



NEW INPUT 
ROUTINE 



GET FILE 
NUMBER 



LENGTH 



NOTICE 



CHKCOM 

FINDVAR 

VARADR 

VARADR+1 

FRESTR 

STRRES 

#2 

PARA , Y 
(VARADR) ,Y 



SEARCH FOR 
VARIABLE 



LENGTH 

RESERVE PLACE 
FOR STRING 



STORE 

BASIN 
(PARA+1) ,Y 

PARA 
FETCH 
CLRCH 
INTER 



Y=0 



:TO INTERPRETER 
LOOP 



Here are the BASIC programs for entering the machine 
language program for the INPUT* statement. 



INPUT* 



64 Version 



100 FOR I = 828 TO 922 

110 READ X : POKE I ,X : S=S+X : NEXT 

120 DATA 169, 71,160, 3,141, 8, 3,140, 



9, 3, 96, 32 
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130 DATA 115, 0,201,133,240, 6, 32,121, 0, 76,231,167 

140 DATA 32,115, 0,201,172,240, 6, 32,191,171, 76,174 

150 DATA 167, 32,155,183, 32, 30,225, 32,253,174, 32,158 

160 DATA 483,138, 72, 32,253,174, 32,139,176,133, 73,132 

170 DATA 74, 32,163,182,104, 32,117,180,160, 2,185, 97 

180 DATA 0,145, 73,136, 16,248,200, 32, 18,225,145, 98 

190 DATA 200,196, 97,208,246, 32,204,255, 76,174,167 

200 IF S <> 11096 THEN PRINT "ERROR IN DATA !!" : END 

210 SYS 828 : PRINT "OK." 



INPUT* , VIC 20 VERSION 



100 FOR I = 828 TO 922 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 169, 71,160, 3,141, 8, 3,140, 9, 3, 96, 32 

130 DATA 115, 0,201,133,240, 6, 32,121, 0, 76,231,199 

140 DATA 32,115, 0,201,172,240, 6, 32,191,203, 76,174 

150 DATA 199, 32,155,215, 32, 27,225, 32,253,206, 32,158 

160 DATA 215,138, 72, 32,253,206, 32,139,208,133, 73,132 

170 DATA 74, 32.163,214,104, 3 2,117,212,160, 2,185, 97 

180 DATA 0,145, 73,136, 16,248,200, 32, 15,225,145, 98 

190 DATA 200,196, 97,208,246, 32,204,255, 76,174,199 

200 IF S <> 11442 THEN PRINT "ERROR IN DATA !!" : END 

210 SYS 828 : PRINT "OK." 



4.3.2 Easy Preparation of Data Records 

If you have worked with relative files before, you know that 
a definite record length must be established. This record is 
usually divided into several fields which likewise begin at 
a definite position within the record, and have a set 
length. 

If you create a new record, for example, a separate INPUT 
statement is generally used for each field. Before the 
complete record can be written, it must be assembled 
properly. Each field must be checked for proper length. If 
it is longer than then the planned length of the 
corresponding data field, the remainder must be truncated to 
the proper length. Here are two new BASIC commands that are 
excellently suited for this task. These new commands are 
written in machine language and are initialized with a SYS 
command. You can then use them as any other BASIC commands. 

The first command has the name !STR$ and serves to create a 
string with the length of the data record. 

A$ = !STR$(100," ") 
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creates a string with 100 blanks and puts it in the variable 
A$. 

The next command places our data field in the previously 
created string. For example, if you want to assign the 
variable N$ containing the last name as a field of 25 
characters at position 1 in the string A$, our new command 
looks like this: 



MID$ (A$,l,25) 



N$ 



Here the MID$ command is used as a so-called pseudo-variable 
on the left side of the assignment statement. What happens 
here is as follows: 

The variable N$ replaces the first 25 characters of A$. If 
the variable N$ is longer than 25 characters, only the first 
25 characters are replaced and the rest are disregarded. If 
N? is shorter than 25 characters, only as many characters 
are replaced as N$ contains. The original characters in A$ 
remain (blanks, in our case). That is exactly as we wanted. 
Now we can program the following: 

200 INPUT "LAST NAME 
210 INPUT "FIRST NAME 
220 INPUT "STREET 
230 INPUT "CITY 
240 INPUT "STATE 
250 INPUT "ZIP CODE 
260 A$ = 1STR$ (92, " 
270 MID$ (A$,l,25) = 
280 MID$ (A$,26,20) = 
290 MID$ (A$,46,20) = 
300 MID$ (A$,66,15) = 
310 MID$ (A$,81,2) = 
320 MID$ (A$,83,9) = 
330 PRINT* 2, A$ 

Here is the machine language program for the Commodore 64 



n 


L$ 


!• 


F$ 


tl 


S$ 


H 


C$ 


II 


T$ 


n 


Z$ 


") 


L$ 


F$ 


S$ 


t-9 

T$ 


Z$ 





135: 


C800 




ORG 


$C800 


140: 


C800 


CHKOPEN 


EOU 


$AEFA 


150: 


C800 


CHKCLOSE 


EQU 


$AEF7 


160: 


C800 


CHKCOM 


EOU 


$AEFD 


170: 


C800 


FRMEVL 


EOU 


$AD9E 


180: 


C800 


CHKSTR 


EOU 


SAD8F 


190: 


C800 


FRESTR 


EOU 


SB6A3 


200: 


C800 


YFAC 


EOU 


SB3A2 


205: 


C800 


CHRGET 


EOU 


$73 


210: 


C800 


CHRGOT 


EOU 


CHRGET+6 


220: 


C800 


GETBYT 


EQU 


$B79B 


226: 


C800 


INTEGER 


EOU 


$B1AA 


229: 


C800 


DESCRPT 


EOU 


$64 


230: 


C800 


STRADR 


EOU 


$62 


231: 


C800 


ADR2 


EOU 


$FB 



291 



Anatomy of the 1541 Disk Drive 



C800 








ADR1 


EOU 


$FB+2 


C800 








LEN1 


EOU 


3 


C800 








LEN2 


EOU 


4 


C800 








NUMBER 


EOU 


5 


C800 








START 


EOU 


6 


C800 








TYPFLAG 


EOU 


13 


C800 








STPCODE 


EOU 


$C4 


C800 








I L LOU AN 


EOU 


$B248 


C800 








SYNTAX 


EOU 


$AF08 


C800 








POSCODE 


EOU 


$B9 


C800 








VECTOR 


EOU 


$30A 


C800 








TEMP 


EOU 


LEN1 


C800 


A9 


0D 






LDA 


#<TESTIN 


C802 


AO 


C8 






LDY 


#>TESTIN 


C804 


8D 


0A 


03 




STA 


VECTOR 


C8 07 


8C 


OB 


03 




STY 


VECTOR+1 


C80A 


4C 


6B 


C8 




JMP 


MIDSTR 


C80D 


A9 


00 




TESTIN 


LDA 


#0 


C80F 


85 


OD 






STA 


TYPFLAG 


C811 


20 


73 


00 




JSR 


CHRGET 


C814 


C9 


21 






CMP 


#"!" 


C816 


F0 


06 






BEQ 


TEST2 


C818 


20 


79 


00 




JSR 


CHPGOT 


C81B 


4C 


8D 


AE 




JMP 


$AE8D 


C81E 


20 


73 


00 


TEST2 


JSR 


CHRGET 


C821 


C9 


C4 






CMP 


#STRCODE 


C823 


F0 


03 






BEO 


STRING 


C825 


4C 


08 


AF 




JMP 


SYNTAX 










; STRINGS FUNCTION 



C828 20 73 00 STRING 
C82B 20 FA AE 
C82E 20 9E B7 



920 


C8 31 


8A 






920 


C832 


48 






930 


C833 


20 


FD 


AE 


940 


C8 36 


20 


9E 


AD 


950 


C839 


24 


0D 




960 


C8 3B 


30 


OC 




970 


C83D 


20 


AA 


Bl 


980 


C840 


A5 


64 




990 


C842 


DO 


24 




100C 


): C844 


A5 


65 




101C 


): C846 


4C 


52 


C8 


102C 


: C849 


20 


82 


B7 STR 


103C 


): C8 4C 


F0 


1A 




104C 


: C84E 


A0 


00 




105( 


1: C850 


Bl 


22 




106C 


): C852 


85 


03 


STR 


107C 


): C854 


68 






108C 


): C855 


20 


7D 


B4 



JSR 


CHRGET 




JSR 


CHKOPEN 


;OPEN PAREN 


JSR 


GETBYT+3 




TXA 






PHA 




(NOTICE LEN 


JSR 


CHKCOM 




JSR 


FRMEVL 




BIT 


TYPFLAG 




BMI 


STR 


; STRING 


JSR 


INTEGER 




LDA 


DESCRPT 


;HIGH BYTE 


BNE 


ILL 


; >255 


LDA 


DESCRPT+1 


; LOW BYTE, 
LENGTH 


JMP 


STR2 




JSR 


SB782 


;SETSTR 
TYPFLAG TO 
NUMERIC 


BEO 


ILL 


; LENGTH 


LDY 


#0 




LDA 


($22) ,Y 


; FIRST CHAR 


STA 


TEMP 




PLA 




; LENGTH 


JSR 


$B47D 


;FRESTR 
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1090: 


C858 


A8 








TAY 




1100: 


C859 


F0 


07 






BEQ 


STR3 


1110: 


C8 5B 


A5 


03 






LDA 


TEMP 


1120: 


C85D 


88 






LOOP 


DEY 




1120: 


C85E 


91 


62 






STA 


(STRADR),Y ; CREATE 
STRING 


1130: 


C860 


DO 


FB 






BNE 


LOOP 


1140: 


C862 


20 


CA 


B4 


STR3 


JSR 


$B4CA ;BRING STRING 
IN DESCRIPTOR STACK 


1150: 


C865 


4C 


F7 


AE 




JMP 


CHKCLOSE 


1160: 


C868 


4C 


48 


B2 


ILL 


JMP 


ILLOUAN 



MID$(STRINGVAR,POS,LEN) = STRING EXP 
MID$(STRINGVAR,POS) = STRING EXP 



200 


C86B 








MIDCODE 


EOU 


$CA 




210 


C86B 








EXECUT 


EOU 


$308 ; VECTOR FOR 

STATEMENT EXECUTE 


240 


C86B 








EXECOLD 


EOU 


$A7E7 




250 


C86B 








VAP.NAM 


EOU 


$45 




255 


C86B 








VAPADR 


EOU 


$49 




260 


C86B 








DESCRPT 


EOU 


$64 




270 


C86B 








TESTSTR 


EOU 


SAD8F 




280 


C8 6B 








GETVAR 


EOU 


$B08B 




290 


C86B 








SETSTR 


EOU 


$AA52 




325 


C86B 








TEST 


EOU 


SAEFF 




330 


C8 6B 








GETBYT 


EOU 


$B79E 




355 


0003 










ORG 


3 




360 


0004 








LENGTH 


DST 


1 




370 


0005 








POSITION 


DST 


1 




372 


0007 








VARSTR 


DST 


2 




375 


0007 








COMP 


EOU 


SB2 




378 


0007 








POINT2 


EOU 


$50 




400 


C86B 


A9 


76 




MIDSTR 


LDA 


#<MIDTEST 




410 


C86D 


A0 


C8 






LDY 


#>MIDTEST 




420 


C86F 


8D 


08 


03 




STA 


EXECUT 




430 


C872 


8C 


09 


03 




STY 


EXECUT+1 




440 


C875 


60 








PTS 






450 


C876 


20 


73 


00 


MIDTEST 


JSR 


CHRGET 




460 


C879 


C9 


CA 






CMP 


tMIDCODE 


;CODE FOR MID$ 


470 


C87B 


F0 


06 






BEO 


MID 


;? YES 


480 


C87D 


20 


79 


00 




JSR 


CHRGOT 




490 


C880 


4C 


E7 


A7 




JMP 


EXECOLD 


; EXECUTE 
















NORMAL STATEMENT 


500 


C883 


20 


73 


00 


MID 


JSR 


CHRGET 


;NEXT CHAR 


505 


C886 


20 


FA 


AE 




JSR 


CHKOPEN 


,-OPEN PAREN 


510 


C889 


20 


8B 


B0 




JSR 


GETVAR 


;GET VAR 


520 


C88C 


85 


64 






STA 


DESCRPT 




530 


C88E 


84 


65 






STY 


DESCRPT+1 




535 


C890 


85 


49 






STA 


VARADP 




535 


C892 


84 


4A 






STY 


VARADR+1 




540 


C894 


20 


A3 


B6 




JSP 


FRESTR 




545 


C897 


A0 


00 






LDY 


#0 




545 


C899 


Bl 


64 






LDA 


(DESCRPT) , 


Y 
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545 


C89B 


48 






PHA 




; LENGTH 


545 


: C89C 


F0 


2E 




BEO 


ILL 




550 


C89E 


20 


52 


AA 


JSR 


SETSTR 


;PUT STRING IN 
RAM 


560 


C8A1 


A0 


01 




LDY 


#1 




560 


: C8A3 


Bl 


49 




LDA 


(VARADR) , 


Y 


560 


C8A5 


85 


05 




STA 


VAPSTP 


;VAR ADDP 


570 


: C8A7 


C8 






INY 






570 


C8A8 


Bl 


49 




LDA 


(VARADR) , 


Y 


570 


: C8AA 


85 


06 




STA 


VARSTR+1 




600 


C8AC 


20 


FD 


AE 


JSR 


CHKCOM 




610 


: C8AF 


20 


9E 


B7 


JSR 


GETBYT 


;GET POS 


620 


C8B2 


8A 






TXA 






630 


C8B3 


F0 


17 




BEO 


ILL 




650 


C8B5 


CA 






DEX 






650 


: C8B6 


86 


04 




STX 


POSITION 




660 


C8B8 


20 


79 


00 


JSR 


CHRGOT 




660 


: C8BB 


C9 


29 




CMP 


#")" 


;END OF 














EXPRESSION? 


665 


C8BD 


DO 


04 




BNE 


NEXT 




665 


: C8BF 


A9 


FF 




LDA 


#$FF 


;MAX LENGTH 


665 


C8C1 


DO 


OC 




BNE 


STORE 




670 


C8C3 


20 


FD 


AE NEXT 


JSR 


CHKCOM 




670 


C8C6 


20 


9E 


B7 


JSR 


GETBYT 


;GFT LEN 


680 


C8C9 


8A 






TXA 






690 


C8CA 


DO 


03 




BNE 


*+5 




700 


C8CC 


4C 


48 


B2 ILL 


JMP 


ILLQUAN 




710 


C8CF 


85 


03 


STOPE 


STA 


LENGTH 




715 


C8D1 


68 






PLA 






715 


CRD2 


38 






PEC 






715 


C8D3 


E5 


04 




SBC 


POSITION 




717 


C8D5 


C5 


03 




CMP 


LENGTH 




717 


C8D7 


BO 


02 




BCS 


OK 




717 


C8D9 


85 


03 




STA 


LENGTH 




720 


C8DB 


20 


F7 


AE OK 


JSR 


CHKCLOSE 


; CLOSE PAPEN 


730 


C8DE 


A9 


B2 




LDA 


#COMP 




770 


C8E0 


20 


FF 


AE 


JSP 


TEST 




780 


C8E3 


20 


9E 


AD 


JSR 


FRMEVL 


;GET EXP 


790 


C8E6 


20 


A3 


B6 


JSR 


FRESTR 




800 


C8E9 


AO 


02 




LDY 


#2 




800 


C8EB 


Bl 


64 




LDA 


(DESCRPT) 


rY 


800 


C8ED 


85 


51 




STA 


POINT2+1 




800 


C8EF 


88 






DEY 






800 


C8F0 


Bl 


64 




LDA 


(DESCRPT) 


,Y 


800 


C8F2 


85 


50 




STA 


POINT2 




810 


C8F4 


88 






DEY 






810 


C8F5 


Bl 


64 




LDA 


(DESCRPT) 


rY 


820 


C8F7 


FO 


D3 




BEO 


ILL 


;0 THEN ERPOR 


840 


C8F9 


C5 


03 




CMP 


LENGTH 




850 


C8FB 


BO 


02 




BCS 


OKI 




860 


C8FD 


85 


03 




STA 


LENGTH 




870 


C8FF 


A5 


05 


OKI 


LDA 


VARSTR 




880 


C901 


18 






CLC 






880 


C902 


65 


04 




ADC 


POSITION 




910 


C904 


85 


05 




STA 


VARSTR 
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910 


C906 


90 


02 


920 


C908 


E6 


06 


940 


C90A 


A4 


03 


950 


C90C 


88 




950 


C90D 


Bl 


50 


960 


C90F 


91 


05 


970 


C911 


CO 


00 


970 


C913 


DO 


F7 


980 


C915 


4C 


AE A7 



LOOP 



BCC 


* + 4 




INC 


VARSTR-t-1 




LDY 


LENGTH 




DEY 






LDA 


(POINTI) ,Y 


; TRANSFER 




CHARS 


FROM STRING 


STA 


(VARSTR) ,Y 


(EXP TO VAR 


CPY 


#0 




BNE 


LOOP 




JMP 


SA7AE ;TO 


INTERPRETER 




LOOP 



For those who have no monitor or assembler for the Commodore 

64, we have written a loader program in BASIC. 

100 FOR I = 51200 TO 51479 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 169, 13,160,200,141, 10, 3,140, 11, 3, 76,107 

130 DATA 200,169, 0,133, 13, 32,115, 0,201, 33,240, 6 

140 DATA 32,121, 0, 76,141,174, 32,115, 0,201,196,240 

150 DATA 3, 76, 8,175, 32,115, 0, 32,250,174, 32,158 

160 DATA 183,138, 72, 32,253,174, 32,158,173, 36, 13, 48 

170 DATA 12, 32,170,177,165,100,208, 36,165,101, 76, 82 

180 DATA 200, 32,130,183,240, 26,160, 0,177, 34,133, 3 

190 DATA 104, 32,125,180,168,240, 7,165, 3,136,145, 98 

200 DATA 208,251, 32,202,180, 76,247,174, 76, 72,178,169 

210 DATA 118,160,200,141, 8, 3,140, 9, 3, 96, 32,115 

220 DATA 0,201,202,240, 6, 32,121, 0, 76,231,167, 32 

230 DATA 115, 0, 32,250,174, 32,139,176,133,100,132,101 

240 DATA 133, 73,132, 74, 32,163,182,160, 0,177,100, 72 

250 DATA 240, 46, 32, 82,170,160, 1,177, 73.133. 5.200 

260 DATA 177, 73,133, 6, 32,253,174, 32,158,183,138,240 

270 DATA 23,202,134, 4, 32,121, 0,201, 41,208, 4,169 

280 DATA 255,208, 12, 32,253,174, 32,158,183,138,208, 3 

290 DATA 76, 72,178,133, 3,104, 56,229, 4,197, 3,176 

300 DATA 2,133, 3, 32,247,174,169,178, 32,255,174, 32 

310 DATA 158,173, 32,163,182,160, 2,177,100,133, 81,136 

320 DATA 177,100,133, 80,136,177,100,240,211,197, 3,176 

330 DATA 2,133, 3,165, 5, 24,101, 4,133, 5,144, 2 

340 DATA 230, 6,164, 3,136,177, 80,145, 5,192, 0,208 

350 DATA 247, 76,174,167 

360 IF S <> 31128 THEN PRINT "ERROR IN DATA !!" : END 

370 SYS 51200 : PRINT "OK." 



4.3.3 Spooling - Printing Directly from the Disk 

If you have a printer connected to your computer in addition 
to the disk drive, you can use a special characteristic of 
the the serial bus. 

It is possible to send files directly from disk to the 
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printer, without the need to transfer it byte by byte with 
the computer. For example, if you have text saved as a 
sequential file, and you want to print it on the printer, 
the following program allows you to do so: 

100 OPEN 1,4 : REM PRINTER 

110 OPEN 2,8,2, "0:TEST" : REM TEXT FILE 

120 GET#2, A$ : IF ST = 64 THEN 140 

130 PRINT* 1, AS; : GOTO 120 

140 CLOSE 1 : CLOSF 2 

150 END 

Characters are sent from the disk to the printer until the 
end of file is recognized. Then the two files are closed and 
the program ended. 

The following is done when spooling: 

First both files are opened again. Then a command to receive 
data (Listen) is sent to the printer, while the disk drive 
receives the command to send data (Talk). Data are sent 
automatically from the disk to the printer until the end of 
file is reached. During this time, the computer can be used 
without interferring with the transfer of data. Only the use 
of peripheral devices is not possible during this time. 

In practice, this is done with a small machine language 

program. when you want to start printing, you call the 

program and give the name of the file which you want to 
send. 

SYS 828, "TEXT" 

OPENS the file TEXT on the diskette and sends it to the 
printer. As soon as the transfer is begun, the computer 
responds with READY, again and you can use it, as long as no 
attempt is made to access the serial bus. You can prove that 
the computer is no longer needed for transfer by pulling out 
the bus cable to the disk, so that the diskette is connected 
only to the printer. When the spooling is done, the disk 
file is still open (the red LED is still lit). You can CLOi E 
the file and turn the printer off and then back on, and give 
the SYS command without a filename (the cable to the disk 
must be attached, of course). 

SYS 828 

With same command you can stop a transfer in progress. The 
machine language program in the form of a loader program for 
the Commodore 64 and the VIC 20 is found at the end. 

Here are some hints for use: 

We have successfully used the printer spooling with a 
Commodore 64 and a VIC 20 with a printer such as the the VIC 
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1525. Attempts using an Epson printer with a VIC interface 
as well as the VIC 1526 did not succeed. The serial bus, in 
contrast with the parallel IEEE bus, appears to be capable 
of spooling only with limitations. This is why it is 
necessary to turn the printer off after spooling, because it 
still blocks the bus. We would be happy if you would inform 
us of your experience with other printers. 











; 1541 - 


64 SPOOL 




033C 








CHRGOT 


EOU 


$79 




033C 








LISTEN 


EOU 


SFFB1 




033C 








ATNRES 


EPU 


$EDBE 


;ATN HI 


033C 








CLOCK 


EQU 


SEE85 


; CLOCK HI 


033C 








DATA 


EQU 


SEE97 


;DATA HI 


033C 








CLOSE 


EPU 


SFFC3 




3 3C 








CLALL 


EQU 


$FFE7 




033C 








SETFIL 


EQU 


$FFBA 




033C 








GETNAME 


EOU 


SE254 


;GET FILENAME 


033C 








OPEN 


EQU 


$FEC0 




033C 








CHKIN 


EOU 


SFFC6 




033C 








UNTALK 


EOU 


SFFAB 




033C 








UNLISTEN 


EOU 


SFFAE 




033C 








FNLEN 


EOU 


$B7 




033C 








INDEV 


EOU 


$99 


; INPUT DEVICE 


033C 








NMBFLS 


EOU 


$98 


;NO. OF FILES 


033C 








ERROR 


EOU 


$AF08 


; SYNTAX ERROR 


033C 








' 


ORG 


828 




033C 


20 


79 


00 




JSR 


CHRGOT 


;MORE CHARS 


033F 


F0 


33 






BEO 


OFF 


(SPOOL DONE 


0341 


20 


E7 


FF 




JSR 


CLALL 




0344 


20 


54 


E2 




JSR 


GETNAME 




0347 


A6 


B7 






LDX 


FNLEN 




0349 


F0 


38 






BEO 


SYNTAX 




034B 


A9 


02 






LDA 


#2 




034D 


A2 


08 






LDX 


#8 




034F 


A0 


02 






LDY 


#2 




0351 


20 


BA 


FF 




JSR 


SETFIL 




0354 


20 


CO 


FF 




JSR 


OPEN 


;OPEN FILE 


0357 


A9 


04 






LDA 


#4 




0359 


20 


Bl 


FF 




JSR 


LISTEN 


(PRINTER 


035C 


20 


BE 


ED 




JSR 


ATNRES 




035F 


A2 


02 






LDX 


#2 




0361 


20 


C6 


FF 




JSR 


CHKIN 


;DISK 


0364 


20 


BE 


ED 




JSR 


ATNRES 




0367 


20 


85 


EE 




JSR 


CLOCK 




036A 


20 


97 


EE 




JSR 


DATA 




036D 


A9 


00 






LDA 


#0 




036F 


85 


99 






STA 


INDEV 




0371 


85 


98 






STA 


NMBFLS 




0373 


60 








RTS 






0374 


A9 


01 




OFF 


LDA 


#1 




0376 


85 


98 






STA 


NMBFLS 
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570: 0378 20 AE FF 

580: 037B 20 AB FF 

620: 037E A9 02 

630: 0380 4C C3 FF 

640: 0383 4C 08 AF SYNTAX 



JSR 


UNLISTEN 


JSR 


UNTALK 


LDA 


#2 


JMP 


CLOSE 


JMP 


EPPOR 



Here is the BASIC loader program for the Commodore 64. 

100 FOR I = 828 TO 901 

110 READ X : POKE I r X : S=S+X : NEXT 

120 DATA 32,121, 0,240, 51, 32,231,255, 32, 84,226 

130 DATA 166,183,240, 56,169, 2,162, 8,160, 2, 32 

140 DATA 186,255, 32,192,255,169, 4, 32,177,255, 32 

150 DATA 190,237,162, 2, 32,198,255, 32,190,237, 32 

160 DATA 133,238, 32,151,238,169, 0,133,153,133,152 

170 DATA 96,169, 1,133,152, 32,174,255, 32,171,255 

180 DATA 169, 2, 76,195,255, 76, 8,175 

190 IF S <> 9598 THEN PRINT "ERROR IN DATA 1 ! " : END 

200 PRINT "OK." 

For the VIC 20, use the following program: 

100 FOR I = 828 TO 901 

110 READ X : POKE I,X : S=S+X : NFXT 

120 DATA 32,121, 0,240, 51, 32,231,255, 32, 81,226 

130 DATA 166,183,240, 56,169, 2,162, 8,160, 2, 32 

140 DATA 186,255, 32,192,255,169, 4, 32,177,255. 32 

150 DATA 197,238,162, 2, 32,198,255, 32,197,238, 32 

160 DATA 132,239, 32,160,228,169, 0,133,153,133,152 

170 DATA 96,169, 1,133,152, 32,174,255, 32,171,255 

180 DATA 169, 2, 76,195,255, 76, 8,207 

190 IF S <> 9648 THEN PRINT "ERROR IN DATA ! ! " : END 

200 PRINT "OK." 
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4.4 Overlay Technique and Chaining Machine Language Programs 

A proven programming technique involves the creation of a 
menu program which then loads and executes other programs 
based on the user's choice. There are two variations: 
preserving or clearing the old variables in the chained 
program. 

It is possible to pass the old variables if the calling 
program is as large or larger than the chained program. If a 
program is chained from another program, the pointer to the 
end of the previous program remains intact, and the new 
program loads over the old. 

In this example, we would get the following result: 

100 REM PROGPAM 1 

110 REM THIS PROGRAM IS LAPGER THAN THE SECOND 

120 A = 1000 

130 LOAD "PPOGPAM 2", 8 

100 REM PPOGRAM 2 
110 PRINT A 

1000 

If the chained program is larger than the original program, 
part of the variables are overwritten and contain 
pieaningless values. Moreover, when the variables that the 
program destroyed are assigned new values, part of the 
program is also destroyed. 

There are two characteristics of passing variables from the 
previous program that should be noted - for strings and for 
functions . 

Any string variables that are defined as constants enclosed 
in quotes in the first program, will have a problem. The 
string variable pointer points to the actual text in the 
program. If, for example, a string is defined in the first 
program with the following assignment 

100 AS = "TEXT" 

the variable pointer points to the actual text within line 
number 100. When chaining, the next program does not chance 
this pointer. New text is now at the original location, so 
the variable has unpredictable contents. We can easily work 
around this, however. We need only ensure that the text is 
copied from the program into string storage where text 
variables are normally stored. You can do this as follows: 

100 AS = "TEXT" + "" 
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By concatenating an empty string, you force the contents of 
the variable to be copied to the string storage area. 

Similar considerations apply to function definitions, 
because here also the pointer points to the definition 
within the program. Here you must define the function again 
in the second program, for example: 

100 DEF FN A(X) = 0.5 * EXP (-X*X) 

If you want to chain a program, you can continue to use the 
old variables provided the second program is not longer than 
the first. If the chained program is longer, and we do not 
want to preserve the old variables, there is a trick we can 
use. 

We need only set the end-of-program pointer to the end of 
the new program immediately after loading. This can be done 
with two POKE commands: 

POKE 45, PEEKQ74) : POKE 46, PEEK (175) : CLR 

The CLR command is absolutely necessary. This line should be 
the first line in the chained program. This allows us to 
chain a large program without transfer of variables. 
Another, not so elegant method involves writing the load 
command in the keyboard buffer so the program will 
automatically be loaded in the direct mode. To do this, we 
write the LOAD and RUN commands on the screen and fill the 
keyboard buffer with 'HOME' and carriage returns. An END 
statement must come after this in the program. The control 
system then gets the contents of the keyboard buffer in the 
direct mode and reads the LOAD and RUN commands that control 
the loading and execution of the program. Because this 
occurs in the direct mode, the end address of the program is 
automatically set, the variables are erased and the program 
is started with the RUN. The disadvantage of this method is 
that since the LOAD command must appear on the video screen, 
any display will be destroyed. In practice it looks like 
this: 

1000 PRINT CHP$( 147 )"LOAD"CHR$( 34 ("PROGRAM 2"CHR$ ( 34 ) " ,8 " 

1010 PRINT : PRINT : PRINT : PRINT 

1020 PRINT "RUN" 

1030 POKE 631,19 : POKE 632,13 : POKE 633,13 

1040 POKE 634,13 : POKE 635,13 : POKE 636,13 

1050 POKE 198,6 : END 

You can see that this procedure is more complicated than the 
previous one; it is only mentioned for the sake of 
completeness. With the first procedure, only the LOAD 
command need be programmed in line 1000: 

1000 LOAD "PROGRAM 2", 8 
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There is another technique for chaining machine language 
programs . 

If a machine language program is to be used from a BASIC 
program, it must usually be loaded at the beginning of the 
BASIC program. You must take note of two things: 

First of all, you must make sure that the machine language 
program loads to a specific place in memory. If you load a 
program without additional parameters, the control system 
treats it as a BASIC program and loads it at the starting 
address of the BASIC RAM, generally at 2049 (Commodore 64). 
Machine language programs can only be run, however, when 
they are loaded at the address for which they were written. 
This absolute loading can be accomplished by adding the 
secondary address 1; 

LOAD "MACH-PKG",8,1 

But remember that when loading a program from within another 
program, BASIC attempts to RUN the program from the 
beginning. This leads to an endless loop when loading 
machine language programs, because the operating system 
thinks that a new BASIC program has been chained: 

100 LOAD "MACH-PRG",8,1 

Here we can make use of the fact that the variables are 
preserved when chaining. If we program the following, we 
have reached our goal: 

100 IF A=0 THEN A=l : LOAD "MACH-PRG" , 8 , 1 
110 ... 

When the program is started with RUN. A has the value zero 
and the assignment after the THEN is executed, A contains 
the value 1 and the machine language program is then LOADed. 
When the program begins again after LOADing the program 
MACH-PRG, A has the value 1 so the next line is executed. 

The procedure is similar if you have several machine 
language programs to load. 

100 IF A=0 THEN A=l : LOAD "PROG 1",8,1 

110 IF A=l THEN A=2 : LOAD "PROG 2", 8,1 

120 IF A=2 THEN A=3 : LOAD "PROG 3 ",8,1 

130 

The first time through, PROG 1 will be loaded, the next 
time, PROG 2, and so on. Once all the programs are loaded, 
execution continues with line 130. 
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4.5 Merge - Appending BASIC Programs 

Certainly you have thought about the possibility of 
combining two separate BASIC programs into one. Without 
further details this is not possible, because loading the 
second program would overwrite the first. With the knowledge 
of how BASIC programs are stored in memory and on the 
diskette, you can develop a simple procedure to accomplish 
this task. 

BASIC programs are stored in memory as follows: 

NL NH pointer to the next program line, lo hi 

LL LH line number, lo hi 

XX YY ZZ tokenized BASIC statements 

00 end-of-line marker 

At the end of the program are two additional zero bytes j 
00 00 a total of 3 zero bytes 

Programs are also saved in this format. Where the program 
starts and ends lies in two pointers in page zero: 

PRINT PEEK(43) + 256 * PEEK(44) 

gives the start of BASIC, 2049 for the Commodore 64, 

PRINT PEEK(45> + 256 * PEEK(46) 

points to the byte behind the three zero bytes. 

Because a program is always loaded at the start of BASIC, 
contained in the pointer at 43/44, one can cause a second 
program to load at the end of the first. In practice, we 
must proceed as follows: 

First we load the first program into memory. 

LOAD "PROGRAM 1",8 

Now get the value of the ending address of the program. 

A = PEEK(45) + 256 * PEEK(46) 

This value is decremented by two so that the two zero bytes 
at the end of the program are known. 

A = A - 2 
Now, note the original value of the start of BASIC. 

PRINT PEEKU3), PEEK(44) 
Next, set the start of BASIC to this value. 
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POKE, A AND 255 : POKE 44, A / 256 

Now, LOAD the second program. 

LOAD "PROGRAM 2" ,8 

If you set the start of BASIC back to the original value, 1 
and 8 for the Commodore 64 (as shown above with the PRINT 
commands), you have the complete program in memory and can 
view it with LIST or save it with SAVE. 

POKE 43,1 : POKE 44,8 

The following should be noted when using this method: 

The appended program may contain only line numbers that are 
greater than the largest line number of the first program. 
Otherwise these line numbers can never be accessed with GOTO 
or GOSUB and the proper program order cannot be guaranteed. 

This procedure is especially well suited for constructing a 
subroutine library for often used routines, so they need not 
be typed in each time. It will work out best if you reserve 
specific line numbers for the subroutines, such as 20000- 
25000, 25000-30000, and so on. If you want to merge several 
programs in this manner, you must first load the program 
with smallest line numbers, and then the program with the 
next highest numbers, etc. 
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4.6 Disk Monitor for the Commodore 64 and VIC 20 

In this section we present a very useful tool for working 
with your disk drive, allowing you to load, display, modify, 
and save desired blocks on the diskette. 

For reasons of speed, the program is written entirely in 
machine language. The following commands are supported: 

* Bead a block from the disk 

* Write a block to the disk 

* Display a block on the screen 

* Edit a block on the screen 

* Send disk commands 

* Display disk error messages 

* Return to BASIC 

The program announces its execution (automatically by the 
BASIC load program) with 

DISK-MONITOR VI. 
> 

and waits for your input. If you enter '§', the error 
message from the disk will be displayed, for example 

00, ok, 00, 00 

If you want to send a command to the disk, enter an '@' 

followed by the command. 

You can initialize a diskette with 

>§I 

You can send complete disk commands in this manner, that you 
would otherwise send with 

OPEN 15,8,15 
PRINT* 15, "command" 
CLOSE 15 

For example, you can erase files, format disks, and so on. 

The most important function of the disk monitor is the 
direct access of any block on the diskette. For this, you 
use the commands R and W. R stands for READ and reads a 
desired block, W stands for WRITE and writes a block to the 
disk. You need only specify the track and sector you want to 
read. These must be given in hexadecimal, exactly as the 
output is given on the screen. If, for example, you want to 
read track 18, sector 1 (the first directory block), enter 
the following command: 

>R 12 01 
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Each input must be given as a two-digit hex number, 
separated from each other with a blank. 

In order to display tne block, use the command M. We receive 
the following output: 

DISK-MONITOR VI. 
>M 

>:00 12 04 82 11 01 47 52 41 GRA 

>:08 46 49 4B 20 41 49 44 2E FIX AID. 

>:10 53 52 43 A0 A0 00 00 00 SRC ... 

>:18 00 00 00 00 00 00 15 00 

>:20 00 00 82 13 00 48 50 4C HPL 

>:28 4F 54 2E 53 52 43 A0 A0 OT.SRC 

>:30 A0 A0 AO A0 A0 00 00 00 

>:38 00 00 00 00 00 00 05 00 

>:40 00 00 82 13 03 56 50 4C VPL 

>:48 4F 54 2E 53 52 43 A0 A0 OT.SRC 

>:50 A0 A0 A0 A0 A0 00 00 00 

>:58 00 00 00 OO 00 00 09 00 

>:60 00 00 82 13 09 4D 45 4D MEM 

>:68 2E 53 52 43 A0 A0 A0 A0 .SRC 

>:70 A0 A0 A0 A0 AO 00 00 00 

>:78 00 00 00 00 00 00 06 00 

>:80 00 00 82 13 08 4D 45 4D MEM 

>:88 2E 4F 42 4A AO AO AO AO .OBJ 
etc . 

Let's take a closer look at the output. The first hex number 
after the colon gives the address of the following 8 bytes 
in the block, 00 indicates the first byte in the block (the 
numbering goes from 00 to FF (0-255)). 8 bytes follow the 
address (4 on the VIC 20). In the right half are the 
corresponding ASCII characters. If the code is not printable 
($00 to S1F and $80 to $9F), a period is printed. When you 
give the command M, as above, the entire block is displayed. 
Because the block does not fit on the screen completely, it 
is possible to display only part of it. You can give an 
address range that you would like to display. If you only 
want to see the first half, enter: 

>M 00 7F 

The second half with: 

>M 80 FF 

With the VIC 20, you can view quarters of the block. If you 
now wish to change some data, you simply move the cursor to 
the corresponding place, overwrite the appropriate byte, and 
press RETURN. The new value is now stored and the right half 
is updated with the proper ASCII character. 

To write the modified block back to the diskette, you use 
the command W. Here also you Fust give the track and sector 
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numbers in hexadecimal. 

>W 12 01 

writes the block back to track 18, sector 1, from where we 
had read the block previously. 

If you want to get back to BASIC, enter X and the computer 
will respond with READY.. If you then want to use the disk 
monitor again, you need not load it again. Just type SYS 
49152 for the C64 or SYS 6690 for the VIC 20. 

A warning: 

Be sure to make a copy of any diskette tnat you work witn in 
this way. Should you make an error when editing or writing a 
block, you can destroy important information on the disk so 
that it can no longer be used in the normal manner. You 
should make it a rule to only work with a copy. 

Here you find an assembler listing of the program. After 
this are the BASIC loader programs for the Commodore 64 and 
VIC 20. 







; disk 


monitor vie 20 / cbm 64 


190 


cooo 


PROMPT 


EOU 


II y II 




200 


cooo 


NCMDS 


EOU 


6 


;NUMBER OF 
COMMANDS 


210 


cooo 


INPUT 


EOU 


$FFCF 




220 


COOO 


TALK 


EOU 


$FFB4 




230 


COOO 


SECTALK 


EOU 


$FF96 




240 


cooo 


IEEEIN 


EQU 


SFFA5 




250 


cooo 


UNTALK 


EOU 


$FFAB 




260 


cooo 


LISTEN 


EQU 


$FFBl 




270 


cooo 


SECLIST 


EOU 


SFF93 




280 


cooo 


IEEEOUT 


EOU 


$FFA8 




290 


cooo 


IJNLIST 


EOU 


$FFAE 




300 


cooo 


WRITE 


EOU 


$FFD2 




310 


cooo 


OPEN 


EpU 


$FFC0 




320 


cooo 


CLOSE 


EOU 


$FFC3 




330 


cooo 


SETPAR 


EOU 


$FFBA 




340 


cooo 


SETNAM 


EOU 


$FFBD 




350 


cooo 


CHKIN 


EOU 


$FFC6 




360 


cooo 


CKOUT 


EOU 


$FFC9 




370 


cooo 


CLRCH 


EQU 


$FFCC 




380 


cooo 


CR 


EOU 


13 




390 


cooo 


OUOTE 


EOU 


$22 




400 


cooo 


OUOTFLG 


EOU 


$D4 




410 


0200 




ORG 


$200 


; BASIC INPUT 
BUFFER 


420 


0201 


SAVX 


BYT 







430 


0202 


WRAP 


BYT 







440 


0203 


BAD 


BYT 
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450: 


0204 








FROM 


BYT 





460: 


0205 








TO 


BYT 





470: 


0205 








STATUS 


EOU 


$90 


480: 


0205 








SA 


EOU 


$B9 ; SECONDARY 
ADDRESS 


490: 


0205 








FA 


EpU 


$BA (DEVICE # 


500: 


0205 








FNADR 


EOU 


$BB ; FILENAME ADR 


510: 


0205 








FNLEN 


EQU 


$B7 ;LEN OF 

FILENAME 


520: 


0205 








TMPC 


EOU 


$97 


610: 


COOO 








COUNT 


EOU 


8 ;# OF BYTES PER LINE 


620: 


C0O0 








READY 


EOU 


$E37B ;$E467 FOR VIC 


630: 


COOO 


A2 


00 




INIT 


LDX 


#0 


640: 


C002 


BD 


85 


C2 


MSGOUT 


LDA 


MESSAGE, X 


650: 


C005 


20 


D2 


FF 




JSR 


WRITE 


660: 


C008 


E8 








I NX 




670: 


C009 


EO 


12 






CPX 


•ASCDMP-MESSAGE 


680: 


C00B 


DO 


F5 






BNE 


MSGOUT 


690: 


COOD 


A2 


OD 




START 


LDX 


#CR 


700: 


COOF 


A9 


3E 






LDA 


♦PROMPT 


710: 


C011 


20 


EB 


CO 




JSR 


WRTWHR 


710: 


C014 


A9 


00 






LDA 


#0 


710: 


C016 


8D 


01 


02 




STA 


WRAP 


720: 


C019 


20 


33 


CI 


ST1 


JSR 


RDOC ;READ INPUT LINE 


730: 


C01C 


C9 


3E 






CMP 


♦PROMPT 


740: 


C01E 


FO 


F9 






BEO 


ST1 


750: 


C020 


C9 


20 






CMP 


#" " ;READ OVER BLANK 


760: 


C022 


FO 


F5 






BEQ 


ST1 


770: 


C024 


A2 


05 




SO 


LDX 


♦NCMDS-1 (COMPARE WITH 
COMMAND TABLE 


780: 


C026 


DD 


6A 


CO 


SI 


CMP 


CMDS,X 


790: 


CO 29 


DO 


OC 






BNE 


S2 


800: 


C02B 


8E 


00 


02 




STX 


SAVX ;# OF CMOS IN TABLE 


840: 


C02E 


BD 


70 


CO 




LDA 


ADRH,X 


850: 


C031 


48 








PHA 


;JUMP ADDR TO 
STACK 


860: 


C032 


BD 


76 


CO 




LDA 


ADRL,X 


870: 


C035 


48 








PHA 




880: 


C036 


60 








RTS 




890: 


C037 


CA 






S2 


DEX 




900: 


C038 


10 


EC 






BPL 


SI ;LOOP OF ALL CMDS 


910: 


C03A 


4C 


OD 


CO 




JMP 


START 



960: 


C03D 


85 


97 




970: 


C03F 


20 


62 


CO 


980: 


C042 


B9 


EO 


C2 


990: 


C045 


20 


DC 


CO 


1000: 


C048 


C8 






1000: 


C049 


DO 


03 




1000: 


C04B 


EE 


01 


02 


1010: 


C04E 


C6 


97 




1020: 


C050 


DO 


ED 





; SUBROUTINE TO DISPLAY 
; THE DISK CONTENTS 
DM STA TMPC 
DM1 JSR SPACE 

LDA BUFFER, Y 



DM2 



;GET BYTE FROM 
BUFFER 



JSR 


WROB 


INY 




BNE 


DM2 


INC 


WRAP 


DEC 


TMPC 


BNE 


DM1 
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1030: C052 60 



RTS 
READ BYTES AND WRITE TO MEMORY 



1060 


: C053 


20 


FE 


CO 


BYT 


JSR 


RDOB 


1070 


: C056 


90 


03 






BCC 


BY3 ; BLANK? 


1080 


: C058 


99 


EO 


C2 




STA 


BUFFER, Y (WRITE BYTE IN 
BUFFER 


1090 


• C05B 


C8 






BY3 


I NY 




1100 


: C05C 


C6 


97 






DEC 


TMPC 


1110 


: C05E 


60 








RTS 




1120 


: C05F 


20 


62 


CO 


SPAC2 


JSR 


SPACE 


1130 


: C062 


A9 


20 




SPACE 


LDA 


#" " 


1140 


: C064 


2C 








BYT 


$2C 


1150 


C065 


A9 


OD 




CRLF 


LDA 


#CR 


1160 


: C067 


4C 


D2 


FF 




JMP 


WRITE 












; COMMAND AND 


ADDRESS TABLE 


1190 


C06A 


3A 






CMDS 


ASC 


':' :EDIT MEM CONTENTS 


1200 


: C06B 


57 








ASC 


'W' ; WRITE BLOCK 


1210 


C06C 


52 








ASC 


'R' ;READ BLOCK 


1220 


C06D 


4D 








ASC 


'M' ;DISLPAY BYTES 


1230 


C06E 


40 








ASC 


' P" ;DISK COMMAND 


1240 


C06F 


58 








ASC 


'X' ;EXIT 


1250 


C070 


CO 






ADRH 


EOU 


>ALTM-1 


1260 


C071 


CI 








EOU 


>DIRECT-1 


1270 


C072 


CI 








EOU 


>DIRECT-1 


1280 


C073 


CO 








EOU 


> DSPLYM- 1 


1290 


C074 


CI 








EOU 


>DISK-1 


1300 


C075 


E3 








EOU 


>READY-1 


1310 


C076 


CO 






ADRL 


EOU 


<ALTM-1 


1320 


C077 


90 








EOU 


<DIRECT-1 


1330 


C078 


90 








EOU 


<DIRECT-1 


1340 


C079 


7B 








EQU 


<DSPLYM-1 


1350 


C07A 


3E 








EOU 


<DISK-1 


1360 


C07B 


7A 








EQU 


< READY- 1 


1370 


C07C 


A0 


00 




DSPLYM 


LDY 


#0 


1380 


C07E 


8C 


03 


02 




STY 


FROM 


1370 


C081 


88 








DEY 




1370 


C082 


8C 


04 


02 




STY 


TO 


1370 


C085 


20 


CF 


FF 




JSR 


INPUT 


1370 


C088 


C9 


OD 






CMP 


#CR 


1370: 


C08A 


FO 


17 






BEO 


DSP1 


1380 


C08C 


20 


FE 


CO 




JSR 


RDOB ;READ START 
ADDRESS 


1390: 


C08F 


90 


12 






BCC 


DSP1 


1400 


C091 


8D 


03 


02 




STA 


FROM 


1410. 


C094 


20 


CF 


FF 




JSR 


INPUT 


1410 


C097 


C9 


OD 






CMP 


#CR 


1410: 


C099 


FO 


08 






BEO 


DSP1 


1420 


C09B 


20 


FE 


CO 




JSR 


RDOB ;READ END ADR 


1430: 


C09E 


90 


03 






BCC 


DSP1 


1440 


C0A0 


8D 


04 


02 




STA 


TO 


1450. 


C0A3 


AC 


03 


02 


DSP1 


LDY 


TO 


1460- 


C0A6 


20 


C6 


C2 


DSP2 


JSR 


TESTEND 


1470: 


C0A9 


20 


D6 


C2 




JSR 


ALTRIT 


1470: 


C0AC 


98 








TYA 
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1480 


COAD 


20 


DC 


CO 




JSR 


WROB 


ADDRESS 


1490 


C0B0 


20 


62 


CO 




JSR 


SPACE 


OMIT FOR VIC 


1500 


C0B3 


A9 


08 






LDA 


# COUNT 


8 OR 4 


1510 


: C0B5 


20 


3D 


CO 




JSR 


DM 


DISPLAY 


1520 


C0B8 


20 


97 


C2 




JSR 


ASCDMP 


ASCII DUMP 


1530 


: COBB 


4C 


A6 


CO 




JMP 


DSP2 


ABS JUMP 


1550 


C0BE 


4C 


OD 


CO 


BE0S1 


JMP 


START 














;EDIT MEMORY; 


READ ADDRESS AND DATA 


1570 


C0C1 


20 


FE 


CO 


ALTM 


JSR 


RDOB 


READ ADDR 


1580 


: C0C4 


90 


F8 






BCC 


BEQS1 




1590 


C0C6 


A8 








TAY 






1600 


C0C7 


A9 


08 






LDA 


#COUNT 


# OF BYTES 


1610 


C0C9 


85 


97 






STA 


TMPC 




1610 


COCB 


20 


33 


CI 




JSR 


RDOC 


OMIT FOR VIC 


1620 


COCE 


20 


33 


CI 


A5 


JSR 


RDOC 




1620 


CODl 


20 


53 


CO 




JSR 


BYT 




1630 


C0D4 


DO 


F8 






BNE 


A5 




1640 


• C0D6 


20 


97 


C2 




JSR 


ASCDMP 




1650 


C0D9 


4C 


OD 


CO 




JMP 


START 














;WRITE 


BYTE AS HEX NUMBER 


1710 


CODC 


48 






WROB 


PHA 






1720 


CODD 


4A 








LSR 


A 




1730 


CODE 


4A 








LSR 


A 




1740 


CODF 


4A 








LSR 


A 




1750 


COEO 


4A 








LSR 


A 




1760 


CO El 


20 


F4 


CO 




JSR 


ASCII 


CONVERT TO 
ASCII 


1770 


C0E4 


AA 








TAX 






1780 


C0E5 


68 








PLA 






1790 


C0E6 


29 


OF 






AND 


#$0F 




1800 


C0E8 


20 


F4 


CO 




JSR 


ASCII 














; WRITE CHARACTERS IN X AND A 


1820 


COEB 


48 






WRTWHR 


PHA 






1830 


COEC 


8A 








TXA 






1840 


COED 


20 


D2 


FF 




JSR 


WRITE 




1850 


COFO 


68 








PLA 






1860 


C0F1 


4C 


D2 


FF 




JMP 


WRITE 




1870 


C0F4 


18 






ASCII 


CLC 






1880 


C0F5 


69 


F6 






ADC 


#$F6 




1890 


C0F7 


90 


02 






BCC 


ASCI 




1900 


C0F9 


69 


06 






ADC 


#6 




1910 


COFB 


69 


3A 




ASCI 


ADC 


#$3A 




1920 


COFD 


60 








RTS 
















; READ 


HEX BYTE AND PUT IN A 


1950 


COFE 


A9 


00 




RDOB 


LDA 


#0 




1960 


C100 


8D 


02 


02 




STA 


BAD ; READ 


NEXT CHAR 


1970 


C103 


20 


33 


CI 




JSR 


RDOC 




1980 


C106 


C9 


20 




RDOBl 


CMP 


#' 




1990- 


C108 


DO 


09 






BNE 


RDOB2 




2000 


C10A 


20 


33 


CI 




JSR 


RDOC ; READ 


NEXT CHAR 


2010: 


C10D 


C9 


20 






CMP 


#' 




2020 


C10F 


DO 


OF 






BNE 


RDOB3 




2030: 


cm 


18 








CLC 


;CY=0 




2040 


C112 


60 








RTS 
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C113 
C116 
C117 
CI 18 
C119 
C11A 
CUD 
C120 
C123 
C126 
C127 
C128 
C12A 
C12B 
C12D 
C12E 
C130 
C132 
C133 
C136 
C138 
CI 3 A 
C13B 
C13C 



20 28 CI KD0B2 

OA 

OA 

OA 

OA 

8D 02 02 

20 33 CI 

20 28 Cl RDOB3 

OD 02 02 

38 

60 

C9 3A HEXIT 

08 

29 OF 

28 

90 02 

69 08 

60 HEX09 

20 CF FF RDOC 

C9 OD 

DO F8 

68 

68 

4C OD CO 



JSR 
ASL 
ASL 
ASL 
ASL 
STA 
JSR 
JSR 
ORA 
SEC 
RTS 
CMP 
PHP 
AND 
PLP 
BCC 
ADC 
RTS 
JSR 
CMP 
BNE 
PLA 
PLA 
JMP 



HEXIT 

A 

A 

A 

A 

BAD 

RDOC 

HEXIT 

BAD 



;CY=1 



*$3A 

#$0F 

HEX09 
*8 

INPUT 

#CR 

HEX09 



START 



;0-9 

fPLUS 9 (C-l) 

;READ CHAR 

!CR? 

;NO, RETURN 



C13F 20 
CI42 C9 
C144 DO 
C146 A9 
CI48 85 
CI4A 20 
C14D A9 
C14F 85 
C151 20 
C154 A9 
C156 85 
C158 20 
C15B 20 
C15E 24 
C160 70 
C162 20 
C165 DO 
CI67 20 
CI6A 4C 
C16D C9 
C16F FO 
CI71 48 
C172 A9 
CI74 85 
C176 20 
C179 A9 
CI7B 85 
C17D 20 



CF FF 

OD 

27 

00 

90 

65 CO 

08 

BA 

B4 FF 

6F 

B9 

96 FF 

A5 FF 

90 

05 

D2 FF 

F4 

AB FF 

OD CO 

24 

ID 

08 

BA 

Bl FF 

6F 

B9 

9 3 FF 



: DOS 


SUPPORT 






DISK 


JSR 


INPUT 






CMP 


#CR 






BNE 


DSKCMD 


J DISK COMMAND 




LDA 


#0 






STA 


STATUS 


? ERASE STATUS 




JSR 


CRLF 






LDA 


#8 






STA 


FA 


;DISK ADDR 




JSR 


TALK 






LDA 


#15+$60 


;SA 15 




STA 


SA 






JSR 


SECTALK 


;SEC ADDR 


ERRIN 


JSR 


IEEEIN 






BIT 


STATUS 






BVS 


ENDDSK 






JSR 


WRITE 






BNE 


ERRIN 




ENDDSK 


JSR 


UNTALK 






JMP 


START 




DSKCMD 


CMP 


#'$ 






BEO 


ERR! 


; CATALOG 




PHA 








LDA 


#8 






STA 


FA 






JSR 


LISTEN 






LDA 


#15+S60 






STA 


SA 






JSR 


SECLIST 
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2560 


C180 


68 








PLA 




2570 


C181 


20 


A8 


FF 


CMDOUT 


JSR 


IEEEOUT 


2580- 


C184 


20 


CF 


FF 




JSR 


INPUT 


2590 


C187 


C9 


OD 






CMP 


#CR 


2600 


C189 


DO 


F6 






BNE 


CMDOUT 


2610 


C18B 


20 


AE 


FF 




JSR 


UNLIST 


2630 


C18E 


4C 


OD 


CO 


ERR1 


JMP 


START 


2640 


C191 


20 


33 


CI 


DIRECT 


JSR 


RDOC 


2640 


C194 


20 


FE 


CO 




JSR 


RDOB ;READ TRACK 


2650 


C197 


90 


F5 






BCC 


ERRl 


2660 


C199 


8D 


27 


C2 




STA 


TRACK 


2670 


C19C 


20 


33 


CI 




JSR 


RDOC 


2670 


C19F 


20 


FE 


CO 




JSR 


RDOB 


2680 


C1A2 


90 


EA 






BCC 


ERRl 


2690 


C1A4 


8D 


2A 


C2 




STA 


SECTOR 


2690 


C1A7 


20 


49 


C2 




JSR 


OPNDIR 


2690 


C1AA 


AD 


00 


02 




LDA 


SAVX 


2690 


C1AD 


C9 


01 






CMP 


#1 


2690 


C1AF 


FO 


IE 






BEO 


DIRWRITE 


2700 


: C1B1 


A9 


31 






LDA 


#'1 


2710 


C1B3 


20 


ED 


CI 




JSR 


SENDCMD ;SEND BLOCK 

READ COMMAND 


2720 


C1B6 


A2 


OD 






LDX 


#13 


2730 


: C1B8 


20 


C6 


FF 




JSR 


CHKIN 


2740 


C1BB 


A2 


00 






LDX 


*0 


2750 


: C1BD 


20 


CF 


FF 


DIRIN 


JSR 


INPUT 


2760 


C1C0 


9D 


EO 


C2 




STA 


BUFFER, X 


2770 


: C1C3 


E8 








I NX 




2770 


: C1C4 


DO 


F7 






BNE 


DIRIN 


2780 


: C1C6 


20 


cc 


FF 




JSR 


CLRCH 


2790 


C1C9 


20 


6E 


C2 


ENDDIR 


JSR 


CLSDIR 


2790 


: C1CC 


4C 


OD 


CO 




JMP 


START 


2800 


: C1CF 


20 


2C 


C2 


DIRWRITE 


JSR 


BUFPNT ;SET BUFFER 
POINTER 


2810 


: C1D2 


A2 


OD 






LDX 


#13 


2820 


: C1D4 


20 


C9 


FF 




JSR 


CKOUT 


2830 


: C1D7 


A2 


00 






LDX 


#0 


2840 


: C1D9 


BD 


EO 


C2 


DIROUT 


LDA 


BUFFER, X 


2850 


: CI DC 


20 


D2 


FF 




JSR 


WRITE 


2860 


: C1DF 


E8 








I NX 




2860 


: C1E0 


DO 


F7 






BNE 


DIROUT 


2870 


: C1E2 


20 


CC 


FF 




JSR 


CLRCH 


2880 


: C1E5 


A9 


32 






LDA 


#'2 


2890 


: C1E7 


20 


ED 


CI 




JSR 


SENDCMD ;SEND BLOCK 
WRITE COMMAND 


2900 


: C1EA 


4C 


C9 


CI 




JMP 


ENDDIR 


2910 


: CI ED 


8D 


20 


C2 


SENDCMD 


STA 


CMDSTR+1 


2910 


: C1F0 


A2 


OF 






LDX 


#15 


2920 


: C1F2 


AD 


27 


C2 




LDA 


TRACK 


2920 


: C1F5 


20 


78 


C2 




JSR 


NUMBASC 


2920 


: C1F8 


8E 


27 


C2 




STX 


TRACK 


2920 


: C1FB 


8D 


28 


C2 




STA 


TRACK+1 


2930 


: C1FE 


AD 


2A 


C2 




LDA 


SECTOR 


2930 


: C201 


20 


78 


C2 




JSR 


NUMBASC 


2930 


: C204 


8E 


2A 


C2 




STX 


SECTOR 
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2930: 


C207 


8D 


2B 


C2 




STA 


SECTOR+1 


2940: 


C20A 


A2 


OF 






LDX 


#15 


2940: 


C20C 


20 


C9 


FF 




JSR 


CKOUT 


2950: 


C20F 


A2 


00 






LDX 


#0 


2960: 


C211 


BD 


IF 


CI 


COMDOUT 


LDA 


CMDSTR, X 


2970: 


C214 


20 


D2 


FF 




JSR 


WRITE 


2980: 


C217 


E8 








I NX 




2980: 


C218 


E0 


OD 






CPX 


#BUFPNT-CMDSTR 


2990: 


C21A 


DO 


F5 






BNE 


COMDOUT 


3000: 


C21C 


4C 


CC 


FF 




JMP 


CLRCH 


3010: 


C21F 


55 
31 
30 


31 
33 
20 


3A 
20 


CMDSTR 


ASC 


'Ul:13 ' 


3020: 


C227 


00 


00 


20 


TRACK 


BYT 


0,0, $20 


3030: 


C22A 


00 


00 




SECTOR 


BYT 


0,0 


3040: 


C22C 


A2 


OF 




BUFPNT 


LDX 


#15 


3050: 


C22E 


20 


C9 


FF 




JSR 


CKOUT 


3060: 


C231 


A2 


00 






LDX 


#0 


3070: 


C233 


BD 


41 


C2 


PNTOUT 


LDA 


BUFTXT, X 


3080: 


C236 


20 


D2 


FF 




JSR 


WRITE 


3090: 


C239 


E8 








I NX 




3090: 


C23A 


E0 


08 






CPX 


#OPNDIR-BUFTXT 


3100: 


C23C 


DO 


F5 






BNE 


PNTOUT 


3110: 


C23E 


4C 


CC 


FF 




JMP 


CLRCH 


3120: 


C241 


42 
20 
20 


2D 

31 
30 


50 
33 


BUFTXT 


ASC 


'B-P 13 0" 


3130: 


C249 


A9 


OF 




OPNDIR 


LDA 


#15 


3130: 


C24B 


A8 








TAY 




3140: 


C24C 


A2 


08 






LDX 


#8 


3150: 


C24E 


20 


BA 


FF 




JSR 


SETPAR 


3160: 


C251 


A9 


00 






LDA 


#0 


3170: 


C253 


20 


BD 


FF 




JSR 


SETNAM 


3180: 


C256 


20 


CO 


FF 




JSR 


OPEN 


3190: 


C259 


A9 


OD 






LDA 


#13 


3190: 


C25B 


A8 








TAY 




3200: 


C25C 


A2 


08 






LDX 


#8 


3210: 


C25E 


20 


BA 


FF 




JSR 


SETPAR 


3220: 


C261 


A9 


01 






LDA 


#1 


3230: 


C263 


A2 


6D 






LDX 


#<DADR 


3240: 


C265 


AO 


C2 






LDY 


#>DADR 


3250: 


C267 


20 


BD 


FF 




JSR 


SETNAM 


3260: 


C26A 


4C 


CO 


FF 




JMP 


OPEN 


3270: 


C26D 


23 






DADR 


.BYT 


'# 


3280: 


C26E 


A9 


OD 




CLSDIR 


LDA 


#13 


3290: 


C270 


20 


C3 


FF 




JSR 


CLOSE 


3300: 


C273 


A9 


OF 






LDA 


#15 


3310: 


C275 


4C 


C3 


FF 




JMP 


CLOSE 


3230: 


C278 


A2 


30 




NUMBASC 


LDX 


#'0 ;HEX 


3330: 


C27A 


38 








SEC 




3340: 


C27B 


E9 


OA 




NUMBl 


SBC 


#10 


3350: 


C27D 


90 


03 






BCC 


NUMB 2 


3360: 


C27F 


E8 








INX 




3370: 


C280 


BO 


F9 






BCS 


NUMBl 


3380: 


C282 


69 


3A 




NUMB2 


ADC 


#S3B ;'9' 



+ 1 
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3390: 


C284 


60 








RTS 




3400: 


C285 


0D 






MESSAGE 


EOU 


CR 


3410- 


C286 


44 
4B 
4F 
54 
20 
2E 


49 
2D 
4E 
4F 
56 
30 


53 
4D 
49 
52 
31 




ASC 


'DISK-MONITOR VI. 0' 


3430 


C297 


98 






ASCDMP 


TYA 




3440- 


C298 


38 








SEC 




3440 


C299 


E9 


08 






SBC 


# COUNT 


3440: 


C29B 


A8 








TAY 




3450 


C29C 


20 


62 


CO 




JSR 


SPACE 


3460 


C29F 


A9 


12 






LDA 


#18 ;RVS ON 


3470 


C2A1 


20 


D2 


FF 




JSR 


WRITE 


3480 


C2A4 


A2 


08 






LDX 


# COUNT 


3490 


C2A6 


B9 


EO 


C2 


AC 2 


LDA 


BUFFER, Y 


3500 


C2A9 


29 


7F 






AND 


#S7F 


3510 


C2AB 


C9 


20 






CMP 


#' 


3520 


C2AD 


BO 


04 






BCS 


AC3 


3530 


C2AF 


A9 


2E 






LDA 


#'. 


3540 


C2B1 


DO 


03 






BNE 


AC 4 


3550 


C2B3 


B9 


EO 


C2 


AC 3 


LDA 


BUFFER, Y 


3560 


C2B6 


20 


D2 


FF 


AC4 


JSR 


WRITE 


3570 


C2B9 


A9 


00 






LDA 


#0 


3570 


C2BB 


85 


D4 






STA 


OUOTFLG 


3580 


C3BD 


C8 








I NY 




3580 


C2BE 


CA 








DEX 




3590 


C2BF 


DO 


E5 






BNE 


AC 2 


3600 


C2C1 


A9 


92 






LDA 


#146 iRVS OFF 


3610 


C2C3 


4C 


D2 


FF 




JMP 


WRITE 


3620 


C2C6 


AD 


01 


02 


TESTEND 


LDA 


WRAP 


3620 


C2C9 


DO 


06 






BNE 


ENDEND 


3630 


C2CB 


CC 


04 


02 




CPY 


TO 


3640 


C2CE 


BO 


01 






BCS 


ENDEND 


3650 


C2D0 


60 








RTS 




3660 


■ C2D1 


68 






ENDEND 


PLA 




3660 


C2D2 


68 








PLA 




3660 


: C2D3 


4C 


OD 


CO 




JMP 


START 


3670 


C2D6 


20 


65 


CO 


ALTRIT 


JSR 


CRLF 


3680 


. C2D9 


A9 


3A 






LDA 


#': 


3690 


C2DB 


A2 


3E 






LDX 


♦PROMPT 


3700 


: C2DD 


4C 


EB 


CO 




JMP 


WRTWHR 


3730 


C2E0 








BUFFER 


DST 


256 ;256 BYTE BUFFER 
FOR BLOCK 



Here is the BASIC program for entering the disk monitor if 
you do not have an assembler. 
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DISK-MONITOR, C64 VERSION 

100 FOR I = 49152 TO 49887 
110 READ X ! POKE I ,X : S=S->-X : NEXT 

120 DATA 162, 0,189,133,194, 32,210,255,232,224, 18,208 
130 DATA 245,162, 13,169, 62, 32,235,192,169. 0,141, 1 
140 DATA 2, 32, 51,193,201, 62,240,249,201, 32,240,245 
150 DATA 162, 5,221,106,192,208, 12,142, 0, 2,189,112 
160 DATA 192, 7 2,189,118,192, 72, 96,202, 16,236, 76, 13 
170 DATA 192,133,151, 32, 98,192,185,224,194, 32,220,192 
180 DATA 200,208, 3,238, 1, 2,198,151,208,237, 96, 32 
190 DATA 254,192,144, 3,153,224,194,200,198,151, 96, 32 
200 DATA 98,192,169, 32, 44,169, 13, 76,210,255, 58, 87 
210 DATA 82, 77, 64, 88,192,193,193,192,193,227,192,144 
220 DATA 144,123, 62,122,160, 0,140, 3, 2,136,140, 4 
230 DATA 2, 32,207,255,201, 13,240, 23, 32,254,192,144 
240 DATA 18,141, 3, 2, 32,207,255,201, 13,240, 8, 32 
250 DATA 254,192,144, 3,141, 4, 2,172, 3, 2, 32,198 
260 DATA 194, 32,214,194,152, 32,220,192, 32, 98,192,169 
270 DATA 8, 32, 61,192, 32,151,194, 76,166,192, 76, 13 
280 DATA 192, 3 2,254,192,144,248,168,169, 8,133,151, 32 
290 DATA 51,193, 32, 51,193, 32, 83,192,208,248, 32,151 
300 DATA 194, 76, 13,192, 72, 74, 74, 74, 74, 32,244,192 
310 DATA 170,104, 41, 15, 32,244,192, 72,138, 32,210,255 
320 DATA 104, 76,210,255, 24,105,246,144, 2,105, 6,105 
330 DATA 58, 96,169, 0,141, 2, 2, 32, 51,193,201, 32 
340 DATA 208, 9, 32, 51,193,201, 32,208, 15, 24, 96, 32 
350 DATA 40,193, 10, 10, 10, 10,141, 2, 2, 32, 51,193 
360 DATA 32, 40,193, 13, 2, 2, 56, 96,201, 58, 8, 41 
370 DATA 15, 40,144, 2,105, 8, 96, 32,207,255,201, 13 
380 DATA 208,248,104,104, 76, 13,192, 32,207,255,201, 13 
390 DATA 208, 39,169, 0,133,144, 32,101,192,169, 8,133 
400 DATA 186, 32,180,255,169,111,133,185, 32,150,255, 32 
410 DATA 165,255, 36,144,112, 5, 32,210,255,208,244, 32 
420 DATA 171,255, 76, 13,192,201, 36,240, 29, 72,169, 8 
430 DATA 133,186, 32,177,255,169,111,133,185, 32,147,255 
440 DATA 104, 32,168,255, 32,207,255,201, 13,208,246, 32 
450 DATA 174,255, 76, 13,192, 32, 51,193, 32,254,192,144 
460 DATA 245,141, 39,194, 32, 51,193, 32,254,192,144,234 
470 DATA 141, 42,194. 32, 73,194,173, 0, 2,201, 1,240 
480 DATA 30,169, 49, 32,237,193,162, 13, 32,198,255,162 
490 DATA 0, 32,207,255,157,224,194,232,208,247, 32,204 
500 DATA 255, 32,110,194, 76, 13,192, 32, 44,194,162, 13 
510 DATA 32,201,255,162, 0,189,224,194. 32,210,255,232 
520 DATA 208,247, 32,204,255,169, 50, 32,237,193, 76,201 
530 DATA 193,141, 32,194,162, 15,173, 39,194, 32,120,194 
540 DATA 142, 39,194,141, 40,194,173, 42,194, 32,120,194 
550 DATA 142, 42,194,141, 43,194,162, 15, 32,201,255,162 
560 DATA 0,189, 31,194, 3 2,210,255,232,224, 13,208,245 
570 DATA 76,204,255, 85, 49, 58, 49, 51, 32, 48, 32, 
580 DATA 0, 32, 0, 0,162, 15, 3 2,201,255,162, 0,189 
590 DATA 65,194, 32,210,255,232,224, 8,208,245, 76,204 
600 DATA 255, 66, 45, 80, 32, 49, 51, 32, 48,169, 15,168 
610 DATA 162, 8, 3 2,186,255,169, 0, 32,189,255, 32,192 
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620 DATA 255,169, 13,168,162, 8, 32,186,255,169, 1,162 
630 DATA 109,160,194, 32,189,255, 76,192,255, 35,169, 13 
640 DATA 32,195,255,169, 15, 76,195,255,162, 48, 56,233 
650 DATA 10,144, 3,232,176,249,105, 58, 96, 13, 68, 73 
660 DATA 83, 75, 45, 77, 79, 78, 73, 84, 79, 82, 32, 86 
670 DATA 49, 46, 48,152, 56,233, 8,168, 32, 98,192,169 
680 DATA 18, 32,210,255,162, 8,185,224,194, 41,127,201 
690 DATA 32,176, 4,169, 46,208, 3,185,224,194, 32,210 
700 DATA 255,169, 0,133,212,200,202,208,229,169,146, 76 
710 DATA 210,255,173, 1, 2,208, 6,204, 4, 2,176, 1 
720 DATA 96,104,104, 76, 13,192, 32,101,192,169, 58,162 
730 DATA 62, 76,235,192 

740 IF S <> 90444 THEN PRINT "ERROR IN DATA !!" : END 
750 SYS 49152 



DISK-MONITOR, VIC 20 VERSION 

In order to allow this program to be run on the VIC 20, it was 
split into two parts. Enter each program separately, saving the 
first under the name "DOS LOADER. 1" and second under "DOS 
LOADER. 2". To load the disk monitor, load the first program and 
start it with RUN. If all data are correct, the second program 
will automatically be loaded and the disk monitor started. 

100 POKE 55, 6690 AND 255 s POKE 56, 6690 / 256 : CLR 
105 FOR I = 6690 TO 7056 : REM DOS LOADER. 1 
110 READ X : POKE I ,X : S=S+X : NEXT 

120 DATA 162, 0,189,164, 28, 32,210,255,232,224, 18,208 
130 DATA 245*162, 13,169, 62, 32, 7, 27,169, 0,141, 1 
140 DATA 2, 32, 79, 27,201, 62,240,249,201, 32,240,245 
150 DATA 162, 5,221,140, 26,208, 12,142, 0, 2,189,146 
160 DATA 26, 72,189,152, 26, 72, 96,202, 16,236, 76, 47 
170 DATA 26,133,151, 32,132, 26,185, 0, 29, 32,248, 26 
180 DATA 200,208, 3,238, 1, 2,198,151,208,237, 96, 32 
190 DATA 26, 27,144, 3,153, 0, 29,200,198,151, 96, 32 
200 DATA 132, 26,169, 32, 44,169, 13, 76,210,255, 58, 87 
210 DATA 82, 77, 64, 88, 26, 27, 27, 26, 27,228,223,175 
220 DATA 175,157, 90,102,160, 0,140, 3, 2,136,140, 4 
230 DATA 2, 3 2,207,255,201, 13,240, 23, 32, 26, 27,144 
240 DATA 18,141, 3, 2, 32,207,255,201, 13,240, 8, 32 
250 DATA 26, 27,144, 3,141, 4, 2,172, 3, 2, 32,229 
260 DATA 28, 32,245, 28,152, 32,248. 26,169, 4, 32, 95 
270 DATA 26, 32,182, 28, 76,200, 26, 76, 47, 26, 32, 26 
280 DATA 27,144,248,168,169, 4,133,151, 32, 79, 27, 32 
290 DATA 117, 26,208,248, 32,182, 28, 76, 47, 26, 72, 74 
300 DATA 74, 74, 74, 32, 16, 27,170,104, 41, 15, 32, 16 
310 DATA 27, 72,138, 32,210,255,104, 76,210,255, 24,105 
320 DATA 246,144, 2,105, 6,105, 58, 96,169, 0,141, 2 
330 DATA 2, 32, 79, 27,201, 32,208, 9, 32, 79, 27,201 
340 DATA 32,208, 15, 24, 96, 32, 68, 27, 10, 10, 10, 10 
350 DATA 141, 2, 2, 32, 79, 27, 32, 68, 27, 13, 2, 2 
360 DATA 56, 96,201, 58, 8, 41, 15, 40,144, 2,105, 8 
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370 DATA 96, 32 , 207 , 255 , 201 , 13,208,248,104,104, 76, 47 

380 DATA 26, 32,207,255,201, 13,208, 39,169, 0,133,144 

390 DATA 32,135, 26,169, 8,133,186, 32,180,255,169,111 

400 DATA 133,185, 32,150,255, 32,165,255, 36,144,112, 5 

410 DATA 32,210,255,208,244, 32,171,255, 76, 47. 26,201 

420 DATA 36,240, 29, 72,169, 8,133 

430 IF S <> 35614 THEN PRINT "ERROR IN DATA !!" •. END 

440 LOAD "DOS LOADER. 2", 8 



100 CLP : FOR I = 7057 TO 74 22 : REM DOS LOADER. 2 
110 READ X : POKE I ,X : S=S+X : NEXT 

120 DATA 186, 3 2,177,255,169,111,133,185, 32,147,255,104 
130 DATA 32,168,255, 32,207,255,201, 13,208,246, 32,174 
140 DATA 255, 76, 47, 26, 76, 47, 26, 32, 79, 27, 32, 26 
150 DATA 27,144,245,141, 70, 28, 32, 79, 27, 32, 26, 27 
160 DATA 144,234,141, 73, 28, 32,104, 28,173, 0, 2,201 
170 DATA 1,240, 30,169, 49, 32, 12, 28,162, 13, 32,198 
180 DATA 255,162, 0, 32,207,255,157, 0, 29,232,208,247 
190 DATA 32,204,255, 32,141, 28, 76, 47, 26, 32, 75, 28 
200 DATA 162, 13, 32,201,255,162, 0,189, 0, 29, 32,210 
210 DATA 255,232,208,247, 32,204,255,169, 50, 32, 12, 28 
220 DATA 76,232, 27,141, 63, 28,162, 15,173, 70, 28, 32 
230 DATA 151, 28,142, 70, 28,141, 71. 28,173, 73, 28, 32 
240 DATA 151, 28,142, 73, 28,141, 74, 28,162, 15, 32,201 
250 DATA 255,162, 0,189, 62, 28, 32,210,255,232,224, 13 
260 DATA 208,245, 76,204,255, 85, 49, 58, 49, 51, 32, 48 
270 DATA 32, 0, 0, 32, 0, 0,162, 15, 32,201,255,162 
280 DATA 0,189, 96, 28, 32,210,255,232,224, 8,208,245 
290 DATA 76,204,255, 66, 45, 80, 32, 49, 51, 32, 48,169 
300 DATA 15,168,162, 8, 32,186,255,169, 0, 32,189,255 
310 DATA 32,192,255,169, 13,168,162, 8, 32,186,255,169 
320 DATA 1,162,140,160, 28, 32,189,255, 76,192,255, 35 
330 DATA 169, 13, 32,195,255,169, 15, 76,195,255,162, 48 
340 DATA 56,233, 10,144, 3,232,176,249,105, 58, 96, 13 
350 DATA 68, 73, 83, 75, 45, 77, 79, 78, 73, 84, 79, 82 
360 DATA 32. 86, 49, 46, 48,152, 56,233, 4,168, 32,132 
370 DATA 26,169, 18, 32,210,255,162, 4,185, 0, 29, 41 
380 DATA 127,201, 32,176, 4,169, 46,208, 3,185, 0, 29 
390 DATA 32,210,255,169, 0,133,212,200,202,208,229,169 
400 DATA 146, 76,210,255.173, 1, 2,208, 6,204, 4, 2 
410 DATA 176, 1, 96,104,104, 76, 47, 26, 32,135, 26,169 
420 DATA 58,162, 62, 76, 7, 27 

430 IF S <> 39496 THEN PRINT "ERROR IN DATA !!" : END 
440 SYS 6690 



316 



Anatomy of the 1541 Disk Drive 
Chapter 5: The Larger CBM Disks 

5.1 IEEE-Bus and Serial Bus 

Standard Commodore 64's and VIC 20's nave a serial bus over 
which they communicate with peripheral devices such as the 
VIC 1541 disk drive as well as printers and plotters. 

The principle of the bus makes it possible to chain 
peripherals. Each device has its own device address over 
which one can communicate with it. The standard address of 
the disk is 8 , a printer is usually 4. The device address is 
identical to the primary address in the OPEN command. For 
instance, 

OPEN 1,4 

opens a channel to the printer. In order to open several 
disk files at once, another address, the secondary address, 
serves to distinguish them. The disk has 16 secondary 
addresses at its disposal, from to 15. Three secondary 
addresses are reserved, while the other 13 can be freely 
used: 

Secondary address is used for loading programs. 

Secondary address 1 is used for saving programs. 

Secondary address 15 is the command and error channel. 

The secondary addresses from 2 to 14 can be used for opening 
files as desired. 

The transfer of information between the Commodore 64 and the 
VIC 1541 occurs serially over this bus. Serial means that 
the the data is sent a bit at a time over just one wire. 
Data within the computer and disk drive are stored and 




the pin-out of the serial bus, we find 6 wires: 



Pin 


Function 


1 


SRO IN 


2 


ground 


3 


ATN 


4 


CLCK 


5 


DATA 


6 


RESET 



If the computer wants to send data to the disk, drive, the 

317 



Anatomy of the 1541 Disk Drive 



ATN (attention) line is set. When this signal is high, all 
peripherals on the bus stop their work and read the next 
byte. The data is sent bit-wise over the DATA line. So that 
the receivers know when the next bit comes, a signal is also 
sent along the CLCK (clock) line. This transmitted byte is 
the device address. If this value does not correspond with 
the device address of a receiving peripheral, the rest of 
the data is ignored. If, however, the device is addressed, a 
secondary address may De transmitted. Along with the device 
address (0 to 31), the device is informed by means of the 
other three bits whether it is supposed to receive data 
(LISTEN) or send data (TALK). Following this, data is sent 
from the computer or from the addressed device. 

The RESET line resets all attached devices when the computer 
is turned on. Over the SRO IN (service request) line, 
peripheral devices can inform the bus controller (in our 
case, the computer), if data is ready, for example. However, 
this line is not checked by the control system in the 
Commodore computers. 

If one wants to attach several disk drives to the same 
computer, each must have a different peripheral address. If 
this is done only occasionally, the program DISK ADDS CHANGE 
can be used, as described in section 4.2.3. The new address 
(9 for example), remains only until the device is turned 
off. If the change should be permanent, it can be changed 
with DIP switches in the drive. 

The principle of transfer of data over the IEEE 488 bus is 
similar to the serial bus function. The important difference 
is that the data is transmitted over 8 data lines in 
parallel, not serial. In addition, more handshake lines are 
needed, so the IEEE bus requires a 24-line cable. The main 
advantage of the IEEE 488 bus is its ability to transmit a 
byte at a time, resulting in a higher rate of transfer. 
Measurements indicate that the IEEE-bus is about 5 times 
faster than the serial bus: 1.8 Kbyte/second vs. 0.4 
Kbyte/second. Loading a 10K program with the VIC 1541 takes 
about 25 seconds; on the identical 2031, it takes less than 
6. This reason alone is enough to warrant outfitting your 
computer with an IEEE bus. 

At the same time, it is possible to use all the other 
peripherals that the large CBM computers can access. 
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5.2 Comparison of all CBM Disk Drives 

In the following table you find the technical data of all 
CBM disk drives compared. 



The Technical Data of all Commodore Disk Drives 



Model 



1541 



2031 



4040 



8050 



8250 



DOS version(s) 2.6 2.6 



Drives 1 1 

Heads per drive 1 1 

Storage capacity 170 K 170 K 

Sequential files 168 K 168 K 

Relative files 167 K 167 K 



2.1/ 
2.7 


2.5/ 
2.7 


2, 


.7 




2 

1 


2 

1 


2 
2 






340 K 
168 K 
167 K 


1.05 M 
521 K 
183 K/ 
518 K 


2. 

1. 
1, 


.12 
,05 
,04 


H 

M 
M 



Buffer storage (KB) 2 



Tracks 

Sectors per track 
Bytes per block 
Free blocks 
Directory and BAM 
(track) 
Directory entries 



35 


35 


35 


77 


77 


17-21 


17-21 


17-21 


23-29 


23-29 


256 


256 


256 


256 


256 


664 


664 


1328 


4104 


8266 


18 


18 


18 


38/39 


38/39 



144 



144 



144 



Access time (ms) 

Track to track 30 30 

Average time 360 360 

Revolutions/minute 300 300 



30 
360 



300 



224 



5 
125 



300 



224 



Transfer rate (KB/s) 

internal 40 40 40 40 40 

over ser./IEEE bus 0.4 1.8 1.8 1.8 1.8 



5 
125 



300 



Overview of the "large" CBM drives 

The VIC 1541 disk drive has the smallest storage capacity of 
the CBM disks, but it is also the only drive that can be 
connected directly to the Commodore 64 and VIC 20 over the 
serial bus. 

The functions, construction, and operation are identical to 
those of the CBM 2031 drive. The only difference from the 
VIC 1541 is the parallel IEEE bus instead of the serial bus. 
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This results in an increase in the transfer rate to the 
computer of a factor of 5. To connect a Commodore 64 or VIC 
20, one needs an IEEE interface, as with all other CBM 
drives. The storage format of the 2031 is compatible to the 
1541; both have 170K per disk. Diskettes can De written with 
one device and read with the other. This is true for the 
next drive in the line, the CBM 4040. The 4040 is a double 
drive with 170K per drive. 

The advantage of a double drive lies not only in the 
increased storage capacity, but also in the ability to 
transfer data from drive to drive. It is possible to copy 
complete programs and files using the existing 1541 command. 

OPEN 1,8,15, "C1:TEST=0:TEST" or 

COPY "TEST", DO TO "TEST",D1 

copies the file TEST from drive to drive 1 with the same 
name. In this manner one can concatenate several files on 
different drives. The most important capability of double 
drives is the ability to duplicate entire diskettes. This 
is accomplished by a command from the computer; the drive 
automatically formats the disk and then makes a track ty 
track copy from one drive to the other. The command to do 
this is worded: 

OPEN 1,8,15, "D1 = 0" or 

BACKUP DO TO Dl 

The process takes less than 3 minutes on the 4040; during 
this time the computer may be used since the disk drive 
performs the entire operation by itself. 

The two other CBM drives, the CBM 8050 and the CBM 8250 
operate in double density (77 tracks). Disks written with 
the 1541 or 4040 are not compatible with the 8050/8250. 
Programs and data can be copied with the COPY/ALL program, 
which transfers from one format to another. This is the 
reason these drives have greater storage capacity: 1 MB for 
the 8050 and 2 MB for the 8250. The doubled capacity of the 
8250 comes about because both sides of the disk are used 
( douDle-sided) ; it has two reads/write heads per drive. In 
order to be able to use the whole capacity for relative 
files (see section 3.4), a so-called 'super side-sector' was 
introduced, which contains pointers to 127 groups of 6 side- 
sector blocks each. Through this, a relative file can 
(theoretically) hold 23 MB of data. These drives can be 
connected to a Commodore 64 or VIC 20 over an IEEE bus, so 
that these computers can also access several megabytes. 

An additional advantage of the large CBM drives is their 
larger buffer storage. It is possible to have more files 
open simultaneously than on the VIC 1541. Up to 5 sequential 
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files or 3 relative files may be open at any one time, as 
well as combinations of the two, of course. 

With the 8050/8250 format, tracks 38 and 39 are used for the 
BAM and directory. The disk name and format marker are in 
track 39 sector 0. 

>:00 26 00 43 00 00 00 43 42 S.C...CB 

>:08 4E 20 38 30 35 30 A0 A0 M 8050 

>:10 A0 A0 A0 A0 A0 A0 A0 A0 

>:18 30 31 A0 32 43 A0 A0 A0 01 2C 

The track/sector pointer to the first BAM block (track 38 
sector 0) is in bytes and 1. Byte 2 contains the format 
marker 'C. Bytes 3 through 5 are unused. The disk name is 
in 6 to 21, filled with shifted spaces, in our case CBM 
8050. Bytes 24 and 25 contain tne id '01', while bytes 26 
and 27 contain the DOS format 2C. 

The BAM no longer occupies just one block, but is dispersed 
over track 38; sectors and 3 are used in the 8050, the 
8250 used sectors 6 and 9 in addition. Because more sectors 
are use per track, the BAM entry for each track has been 
enlarged to 5 bytes. The first byte still contains the 
number of free sectors per track and the following bytes 
contain the bit model of the free and allocated sectors (0 = 
sector allocated, 1 = sector free). Here we have the 
contents of track 38 sector 

>:00 26 03 43 00 01 33 ID FF 

>:08 FF FF IF ID FF FF FF IF 

>:10 ID FF FF FF IF ID FF FF 

>:18 FF IF ID FF FF FF IF ID 

>:20 FF FF FF IF ID FF FF FF 

>:28 IF ID FF FF FF IF ID FF 

>:30 FF FF IF ID FF FF FF IF 

>:38 ID FF FF FF IF ID FF FF 

>:40 FF IF ID FF FF FF IF ID 

>:48 FF FF FF IF ID FF FF FF 

>:50 IF ID FF FF FF IF ID FF 

>:58 FF FF IF ID FF FF FF IF 

>:60 ID FF FF FF IF ID FF FF 

>:68 FF IF ID FF FF FF IF ID 

>:70 FF FF FF IF ID FF FF FF 

>:78 IF ID FF FF FF IF ID FF 

>:80 FF FF IF ID FF FF FF IF 

>:88 ID FF FF FF IF ID FF FF 

>:90 FF IF ID FF FF FF IF ID 

>:98 FF FF FF IF ID FF FF FF 

>:A0 IF ID FF FF FF IF ID FF 

>:A8 FF FF IF 18 FC F3 EF IF 

>:B0 00 00 00 00 00 00 00 00 

>:B8 00 00 00 00 00 00 00 OF 

>:C0 F4 93 46 1A 18 6C FB FF 

>:C8 IF 00 00 00 00 00 00 00 
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>:D0 00 00 00 00 00 00 00 00 

>:D8 05 00 00 4D 04 IB FF FF 

>:E0 FF 07 IB FF FF FF 07 IB 

>:E8 FF FF FF 07 IB FF FF FF 

>:F0 07 IB FF FF FF 07 IB FF 

>:F8 FF FF 07 IB FF FF FF 07 



Bytes and 1 point to the next BAM block, track 38 sector 
3. Byte 2 contains the format marker 'C again. The track 
numbers belonging to this BAM section are in bytes 4 and 5; 
here tracks 1 through 51. At position 6 we find the 5 byte 
entry for each track. The next BAM block is constructed 
similarly. The last BAM block always points to the first 
directory block: track 39 sector 1. 

Four BAM blocks are needed for the 8250: track 38 sector 
contains the tracks 1 to 51, track 38 sector 3 contains 52 
to 100, track 38 sector 6 contains track 101 through 150 and 
track 38 sector 9 pertains to tracks 151 to 154. 

The directory track, track 39, contains 28 free blocks; up 
to 28*8=224 directory entries can be stored, in contrast to 
144 for the 1541/4040. The construction of the directory is 
alike for all formats. The following table illustrates the 
track/sector layout: 

1541 / 4040 8050 / 8250 



Tracks 1 - 


17 : - 


20 


1 


- 39 


: - 


28 


sectors 


18- 


24 : - 


18 


40 


- 53 


: - 


26 




25- 


30 : - 


17 


54 


- 64 


: - 


24 




31- 


35 : - 


16 


65 


- 77 
8250 


: - 
only 


22 










78 


-116 


: - 


28 










117 


-130 


: - 


26 










131 


-141 


: - 


24 










142 


-154 


: - 


22 




Blocks 


683 






2083 


: 4186 




Free Dlocks 


664 






2052 


: 4133 
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OTHER BOOKS AVAILABLE: 



The Anatomy of the Commodore 64 - is our insider's guide to 
your favorite computer. This book is a must for those of you 
who want to delve deep into your micro. This 300+ page book 
is full of information covering all aspects of the '64. 
Includes fully commented listing of the ROMs so you can 
investigate the mysteries of the BASIC interpreter, 
kernal and operating system. It offers numerous examples of 
machine language programming and several samples that make 
your programming sessions more enjoyable and useful. 

ISBN* 0-916439-00-3 Available now: S19.95 



The Anatomy of the 1541 Disk Drive - unravels the mysteries 
of working the the Commodore 1541 disk drive. This 320+ page 
book starts by explaining program, sequential and relative 
files. It covers the direct access commands, diskette 
structure, DOS operation and utilties. The fully commented 
ROM listings are presented for the real "hackers". Includes 
listings for several useful utilities including BACKUP, 
COPY, FILE PROTECTOR, DIRECTORY. This is the authoritive 
source for 1541 disk drive information. 

ISBN* 0-916439-01-1 Available now: $19.95 



Tricks & Tips for the Commodore 64 - presents a collection 
of easy-to-use programming techniques and hints. Chapters 
cover advanced graphics, easy data entry, enhancements for 
advanced BASIC, CP/M, connecting to the outside world and 
more. Other tips include sorting, variable dumps, and POKES 
that do tricks. All-in-all a solid set of useful features. 

ISBN* 0-916439-03-8 Available June 29th: $19.95 



Machine Language Book of the Commodore 64 - is aimed at the 
owner who wants to progress beyond BASIC and write faster, 
more memory efficient programs in machine language. The book 
is specifically geared to the Commodore 64. Learn all of the 
6510 instructions as they apply to the '64. Access PCM 
routines, I/O, extend BASIC, more. Included are listings of 
three full length programs: an ASSEMBLER; a DISASSEMBLER; 
and an amazing 6510 SIMULATOR so the reader can "see"the 
operation of the '64. 

ISBN* 0-916439-02-X Available now: $14.95 

Optional program diskette: $14.95 



OTHER TITLES COMING SOON!!! 
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This in depth guide for the Commodore 1541 disk drive 
owner unravels the mysteries of using the 1541 for pro- 
grams, sequential and relative files with plenty of 
working examples. This book includes several useful 
utilities - DISK MONITOR, FILE PROTECTOR, 
BACKUP, MERGE and more. The Anatomy also 
discusses the internals of the Disk Operating System 
with the complete fully commented ROM listings. 
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